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INTRODUCTION 


The following appendices dociments pertinent supporting technical 
effort that was performed for the Modeling and Analysis program: 

Appendices A through C contains the computer program listings 
that were generated as part of Task I, "Discrete Time Domain Analysis 
of Switching Regulators." 

Appendix A contains the software for the Buck Regulator, 

Appendix B contains the software for the Boost Regulator, and 
Appendix C contains the software for the Buck-Boost Regulator. 

All programs have been checked out and the results compared with 
typical performance data, Problem areas may still exist when 
selecting the error coefficient value (EPS) used In the programs. 

Appendices D through G contains the equation derivation and 
optimization software for Boost and Buck-Boost Regulators developed 
In support of Task II, "Design Optimization of Power Converters." 
Software has been checked out. 

Appendices H and I were performed as part of Task II, 
"Investigation of Current Injected Multlloop Controlled Switching 
Regulators." 

Appendix J contains the computer program developed and used for 
Task IV, "MAPPS Demonstration Problem for VSTOL Emerging Power System." 

Appendix K establishes the input parameter justification for the 
discussion presented in Section 5, Volume I. 
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Appendix A. Buck Regulator PAS Computer Program Description 


The computer program nomenclature Is documented In Tables A1 
through A3, 

The PAST computer program flow chart Is presented In Figures A1 
through A3. Figure A1 depicts the computational flow for the various 
analysis techniques. Figures A2 and A3 represent the user Interactive 
guide line for directing the computational flow of the program. The flow 
charts presented In Figures A4 through A'13 describe the computational se- 
quences of the various subroutines and functions that comprise the sumary 
functioned blocks of the buck regulator program. 

In addition, the derivation of the computational procedure for 
the closed-loop transfer function for the audio susceptibility analyses 
Is presented In Figure A14. 
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Table A1. PAST Computer Program Nomenclature 


RIPX(3,1 ) 

steady-state ripple * x - £ 

PSI(3»3) 

f 

PSY(3,3) 

T (for eigenvalue computations) 

6AM(3*’ ) 

r 

INT(8) 

ORAL library subroutine 

XFP(3,1 ) 

Sold 

PRAM(IO) 

[Cl C2 R3 R4 R5 RN2 XLO 

H(3) 

H 

R(3.5) 

QRAL library subroutine 

ITBL (3) 

QRAL library subroutine 

IVO(3) 

QRAL library subroutine 

DELX(3.1) 

Lx 

PHI1(3,3) 

♦( T 0N> 

PH 12(3.3) 

*< T n> 

PHI3(3.3) 

*(t F2 ) 

01(3,2) 

«W 

02(3.2) 

0(T n ) 

03(3.2) 

D(Tfj) 

TEMPI (3.3) 

dumy Mtrls 

TVEC1(3) 

dunoy wctor 

PHIP(3,2) 

•tT.) 


-3 



I 


- 1 
\ , ] 


l ..3 


j :■] 

!. .j 


!■ ■.! 
■ i 
: -i, 



I 









Table A1 . PAST Computer 

Program Nomenclature (Continued) 

COMMON/ PARAM/ 

, 

FK3.3) 

state eqns characteristic matrix 

F2(3.3) 

state eqns characteristic matrix 

. F3(3.3) 

state eqns characteristic matrix 

61(3.2) 

state eqns Input coupling matrix 

62(3.2} 

state eqns Input coupling matrix 

63(3,2) 

state eqns Input coupling matrix 

COMMON/ EXTPAR/ 

NIT 

maximum number Iterations for steady-state 1 

EPS 

minimum error for steady-state solutions 

TP 

T p 

ET 

Er 

MODE 

( ■ 1 - continuous 
inductor current flag j 

COMMON/STATE/ 

( c 2 - discontinuous 

X(3,l) 

x_ 

Y(3.1) 

X. 

2(3,1 ) 

z 

U(2.1) 

u_ 


' 1 
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Table A2. 

Nominal Parameters (MKS System) ' 


El SO 


THETAO 

0 

ER 20 


DELTMET 

5. 

ET 8 


THETAF 

180. 

RL 10 


H 

0 o 

TP 30E-6 





NIT 

100 

EISWIT 

60. 

EPS 

l.E-6 

XHU 

0.01 

MODE 

2 

XIO 

23.E-5 



RO 

0.015 

I PLOT 

0 

CO 

3.E-4 

LIST 

0 

R5 

0.077 

LPEAK 

0 

RN1 

40. 

LFE 

0 

RN2 

26. 

NK 

15 



LFREQ 

0 

Cl 

2200E-1 2 



C2 

0.022E-6 

LRTL 

0 

R1 

28.7E-3 

NRL 

2 

R2 

13.5E-3 

DPRAM 

0 

R3 

IO.E-3 

PRAMF 

0 

R4 

100.E-3 
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r 

RDK = R2/ (R1+R2) 













AJUwnC) aood jo 


Jfc > FP5 


MODE 2 


TON = TP-ER/EI 
DELTON = XMU-TON 
IT = 0 
SCI = XMATI 


DMATCH - SCI 
ION -TON - of^TCH 

SCI = XMATI 
tT = IT + 1 


COMPUTE 
Zl* = >(1,1) 
12 * = >( 2 , 1 ) 
Z3* = Y(3,l) 



COMPUTE 
SMATCh = SCI. 
*Z31 *Z1*t-*Z32'Z2* 
+E$+dZ32*ER 


COMPUTE 

RIPX = X* - 1 * 


(SCI | < EPS 


IT = <NIT T> 



LRTL = 2 



= TP-ER/EI i 


WRITE 

El, MODE, TON 
TF1, TP, X, Y, 
RIPX-, SCI, IT 



FIGURE A-1A 

PAST COMPUTER PROGRAM FLOW DIAGRAM 


KOUUOUX FRAME 











WRITE T 


awyai xnoaioTt 















FIGURE A-1B - PAS 1 COMPUTER FLOW CHART 



GENERATE 

FREQUENCY 

RESPONSE 




















LRTL » 0 
WRITE 
NRL, El 










F POOR QUALITY 
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FIGURE A2 - PAS 1 COMPUTER PROGRAM USER 







transient 

ANALYSIS 


NO 


FIGURE A3 - 


SPECIFY INPUT 
VOLTAGE BEFORE 
STEP CHANGE 


. 

SPECIFY INPUT 
VOLTAGE AFTER 
STEP CHANGE 


SPECIFY NUMBER 
OF COMPUTATION 
CYCLES 




PAS 1 COMPUTER PROGRAM USER 


INTERFACE GUIDE 
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SUBROUTINE STATE 1 (TON, TF1 ) 



SUBROUTINE STS 1 (W2. PHI, W1 , D, U) 

__L— 

TEMPY1 = PHI -Wl 
TEMP Y 2 = D-U 
W2=TEMPY1+TEMPY2 


- PAS 1 SUBROUTINES STATE 1 and STS 1 
-16- 


Sfe&“ifcuf»&Si£af *= -AiUki i34.iLV j *.< ■ 


FIGURE A4 





















DB e [BMATl (VART0N+DELTF1 ,Y,U) 
-B1 3/DELTF1 
IT - IT+1 

VARTFE « VARTF1-B1/DB 
B1 - BKAT1(VARTF1,Y,U) 



HOLDOUT FRAMES 


FIGURE A5 - PAS 1 SUBROUTINE PSIMAT 
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FIGURE A6 


COMPUTE 

*1 (TON) , D1 (TON) 
♦2(TF1), 02 (TF1) 
*3(TF2) , 03 (TF2) 

♦ * *3-*2**l 
FTEMP1 = *X 
TEMP 2 * *3**2*D1 
TEMPI * *3-02 
TEMPI « ®3*2D1+*3D2 
V= ( *3*201 ♦♦ 302) 03 
FTEMP2 * VU 
F * *X + VU 


PAS 1 SUBROUTINE FFUNC 1 









6 ■*** 


SUBROUTINE GAMM 1 (GAM, TON, TFT, X, U, XMU) 


V ART ON * TON 
VARTF1 « TFT 
DELTON * XMU* TON 
DELTF1 « XMU* TF1 
AU * XMU* U 


COMPUTE 
FO « *X + VU 


U1 * U1 + AU 
IT - 0 

SCI ZETA1 ( VARTON , X * U) 



COMPUTE 

♦1 (VARTON) »D1 (VARTON) 
Y*_ « .X*_ + PI • U 

IT * 0 


MODE « 1 


B1-BMAT1(VARTF1,Y,U) 



I COMPUTE 

j DZETHA1 = [ZETA1 
i (VARTON+DELTON,X,U) 

-SCI J/DELTON 
IT = IT + 1 

i VARTON- VARTON -SCI /DZETA1 
^SCJ=ZETA (VARTON, X,U) 


VARTFI =VARTF1 -B1 /J 
B1 =BMAT1 (MARTFl , Y,U) 


< | BI | < EPS 


1 












COMPUTE 

$1 (VARTON) ,D1 (VARTON) 

VI * *1 * xi + m * u 

IT * 0 









Y3 = ET 
IT = 0 

B1=BMAT1 (TF1 .Y.Ul 








utLlr’V r, oj ~ 

' DELTF1 
BT 

TFT = TFT 


! 


DEMAT1 


OEMATT 
B1-BMAT1(TF1,Y,U) 



YES 


o 

r 

o 

o 

c 


**3 



ro 

to 

J 


1 _ 


FIGURE A8 




WRITE 




















SUBROUTINE XMAT1 (TON, El, ER) 


TF1 - TP - TON 
♦P(TP), OF (TP) 
♦F(TF1), DF(TFI) 
♦N(TON), ON(TON) 

: — r 

TEMPI - -*P 
TEMPI - 1-4P 

ott ■ n-fpi 


J DETj <1X1 0 -8 


FIGURE AlO - PAS 1 SUBROUTINE XMAT 1 
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SUBROUTINE PHDMAT (PHI, D, T, F, G) 


CALL 

PHI, D, FSQ, F, 
G, B 

I 

CALL 

TAR I , TAR2, TV EC I 

I 


COMPUTE 
GAM1 , 6AM2 
GRAL1 , GRAL2 
XU, X 12 


COMPUTE PHI (T) 


•RMSCLR 
(TAR1, GAM1 ,F,3,3) 

• RWUL 

(FSQ,F,F,3,3,3l 

■RMSCLR 

(TAR2, GAM2, FSQ ,3. 3) 
• RMADO 

-iPHi: TARl. TAR2.3.31 




(TARl, XII, F,3,3) 
‘RMSCLR 

(TAR2, XI2, FSQ, 3, 3) 
•RMAOD 

JlflRK TARl^ TAR2.3.3I 


COMPUTE D(T) 
•RMMUL 

(D,B,G,3,3,2) 


RETURN 


FIGURE A12 - PAS 1 SUBROUTINE PHDMAT 
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SUBROUTINE FREQ (PHI ,DVEC,H,TP 





THETA .THETAF, DELTHET, EI.ER) 



ZZ 

YIV * 1/Y 
RHMUL 

(TEMPI, A. A, 3, 3, 3) 
jRMSUR 

j(TEMP2,YIV,TEM D l ,3,3) 
jTEMP2(I,I)=TEMP2(M)+Y 
I = V,3 

RMINV (V,TEMP2,3) 

RMMUL (U,A,V, 3,3,30 
U(I,J) * YIV-U(I.J) 

|l 3 1,3 J - 1,3 

t 












RMVEMUl 

•(TVEC1 ,U,DVEC.,3,3) 

•* (TVEC2,V,DVEC,3,3) 

GRE = GIM = 0 

DO 55 1 = 1,3 

GRE = GRE+H( I ) -TVEC1 ( I ) 

GIM = GIM+H( I ) «TVEC2(IO 

G = SQRT{GRE 2 + GIM 2 ) 

DBEL = 20-AL0G 10 (G-EI/ER) 
PHASE = DEGRAD “ATAN2( GIM, GRE) 
j WRITE: THETA, FREQ, DBEL 

| G, GRE, GRIM PHASE 





Figure AM, Seeer.tlon of Cl.sed-loop Trees for Funetloe for Subroutle. FREQ 

JwTn « 

G( ju) • H(Ic -¥p r, 0< u T p ii 
Let «Tp ■ e 

(Ie^ e -f)’ 1 ■ (jlslne ♦ Icose -♦)“* 

■ [jlslne ♦ A]" 1 (where A • Icose-*) 

Let Qj ♦ jQ 2 * [jlslne ♦ A]" 1 
then 

[A * jlslne]^ 4 jQj . i 
AQj - sine Q 2 ■ I 
sine Qj ♦ AQ 2 ■ 0 

AQ 2 

If sine > 0 + £, 

A 2 Q 2 

■ sHTe * sjne q 2 “ 1 
Q 2 " ~ [sfne + is1ne ] 

Q 1 * sine [sTne * Isine ] 


If sine 0 


-1 


Q 2 * - A sine Qj 
AQj ♦ A ” 1 s'Sn^e Q. * I 

j ■ £a ♦ A“* $1n 2 eJ 

-A" 1 sine £a ♦ A" 1 s1n 2 ej 


Q 

0» 
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00100 
001 10 
00120 
00130 
00140 
00130 
00140 
00170 
00180 
001 VO 
00200 
00210 
00220 
00230 
00240 
00250 
00240 
00270 
00280 
O02V0 
00300 
00310 
00320 
00330 
00340 
00350 
00340 
00370 
00380 
O03V0 
00400 
00410 
00420 
00430 
00440 
00450 
00440 
00470 
0046w 
004VO 
00500 
00510 
00520 
00530 C 
00540 
00550 
00540 
00570 


APPENDIX A 

BUCK PAS COMPUTER PROGRAM 


PROGRAM PAS1 (INPUT ,OUTPUT, TAPES" INPUT, 

XTAPE4"0UTPUT,TAPE7) 

DIMENSION RIPX <3,1 ) ,PBI<3,3> ,PSY< 3,3) ,6AM< 3, 1 ) , IN T<8> , 

XXFP< 3, 1 ) ,PRAM( 10),H<3),R(3,5),ITIL(3),IVD(3),DELX<3,1 ) , 
XPHI1<3,3>,PNI2<3,3),PHI3<3,3>,DM3,2> 5 il2i3.2),D3<3,2), 

X TEMPI (3,3) , TVEC1 ( 3) ,PHIP( 3, 3) , 

XRPRAH< 10) ,XTR< 3, 1),YTR(3,1),ZTR<3,1) 

COMMON /PARAN/F 1 (3, 3) ,F2( 3, 3) ,F3(3,3> ,G1 (3,2),G2<3,2), 

XG3( 3,2) 

COMMON/EXTPAR/N1T,EPS,TP,ET,MODE,TF,LDUTY 
COMMON /STATE/X<3,1),V(3,1),Z<3,1),U<2,1> 

EQUIVALENCE (PRANI 1 ) , Cl ) , < PRAH<2) ,C2 ) , < PRAM < 3 >,R3 ) , 

X < PRAM <4> t R4), (PRAN(S) ,R5) , (PRAH<4 > ,RN2) f (PRAN<7) ,XLO) , 

X 1 PRAM < 8 ) , CO) , <PRAM( V) ,RL ) , ( PRAM ( 10) ,EI ) 

REAL LP 

DATA El, ER, ET, RL, TP/50. ,20. ,8. , 10. ,30. E-4/ 

DATA EISUI T , XMU/40 . ,0.01/ 

DATA XL0,R0,C0,R5,RN1 , RN2/25. E-5, 0.015, 3. E-4, 0.077, 40. ,24./ 

DATA Cl ,C2,R1 , R2,R3,R4/ 2200. E-1 2,0. 022E-4,28.7E3, 

XI 3.5E3, 10.E3, 100.E3/ 

DATA THETAO,DELTHET,THETAF ,H/0. ,5. , 180. , 1 . ,0. ,0./ 

DATA NIT, EPS/100,1. E-4/ 

DATA NODE/2/ 

DATA IPLQT, LIST, LPEAK,LFE,NK,LFRE0/0, 0,0, 0,15,0/ 

DATA LRTL,NRL,DPRAM,PRANF/0,2,0.,0./ 

DATA LPARAM,LC0NP,LPC,LSA,LRLPC,LCFR,LPEAK/1 ,0,0, 0,0, 0,0/ 

DA T A RPRAM/2HC 1 , 2HC2 , 2NR3 , 2HR4 , 2HR5 , 2HN2 , 2HL0, 2HC0, 

X 2HRL,2MEI/ 

DATA RLSUIT , LRL/400. ,0./ 

DATA TF,LDUTY,TPC0N/8.5393E-4,2,3.E-5/ 

DATA OL DTI ME, LTR,LRESP,TSWIT,TF INAL/O. ,1 ,0,2.E-3,13.VE-3/ 

DATA MTR,SEPS/1 ,2. E-4/ 

NANELIST/PARAN/EI,£R,£T,RL, TP,XLO,RO,CO,R5,RN1 ,RN2, 

XC1 ,C2,R1 ,R2 ,R3,R4 , EISUI T ,TF 
NAMELIST/COMP/EPS, N1T,XMU 

NAMELIST/CONTRL/LPARAH,LCOMP,LPC,LSA,LRTL,LRLPC,LFREQ 
X, L CFR, L PEAK, LOAD, L DUTY ,LRESP 
NANELIST/RLPARAN/NRL,DPRAN,PRAMF 
NAMELIST/FRPARAM/THETAO,DELTHET,THETAF 
NAMELIST/TAPARAN/EI ,£ISVIT,.NK 
NAMELIST/RPARAN/RL, RLSUIT, NK 
NANEL I ST /TRPARAN/Ol BT IME, TSUIT , TF INAL 
REWIND 7 
URI TE (4 , V9) 

9V FORMAT <1X,*PR0GRAM FUNCTION* , 1 3X,* CONTROL PARAMETER (1-YES O.-NO)* 
X /♦ CHANGE PAR AN*, 18X,*LPARAN* 

X /* CHANGE CONP*, 19X,*LC0NP* 

X /• LIST PARAN, CQNP*,MX,*LPC* 
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00580 

X /• STABILITY ANALYSIS*, 12X,*LSA* 


00590 

X /* ROOT LOCUS ANALYSIS*, 1 IX, *LRTL* 


00600 

X /• LIST PARAMETER C0DE*,6X ,*LRLPC* 


00610 

X /• AUDIO ANALYSIS*, 16X,*LFRE0* 


00620 

X /♦ CHANGE FREQ RANGE*, 8X,*LCFR* 


00630 

X /• TRANSIENT ANALYSIS*, 12X,*LPEAK* 


00660 

X /* TRANSIENT LOAD *,12X,*L0AD* 


00650 

X /• DUTY CYCLE SCHENE *, 12X,*LDUTY* 


00660 

X /* TRANS I ST ION ALGORITHM * ,6X , *LRESP*/ ) 


00670 

600 CONTINUE 


00680 

UR1TE<6,601 > 


00690 

601 FORMAT 11X,*ENTER N TO DISCONTINUE PAS, OTHEPUISE 

00700 

READ ( S , 602 ) XI 


00710 

602 FQRMATtAI) 


00720 

IFtX1.EQ.1HN) STOP 


00730 

UR1TE(6,603) 


00760 

603 FORMAT <1X,*1NPUT PAS CONTROL PARAMETERS*) 


00750 

READ(5,C0NTRL) 


00760 

C WRITE t 6 ,CONTRL ) 


00770 

IFtLDUTY.EO.I) GO TO 620 


00780 

WRITE <6 . 62T ) 


00790 

621 FORMAT t /IX, CONSTANT TF DUTY CYCLE SCHEME*/) 

00800 

GO TO 622 


00810 

620 CONTINUE 


00820 

TP=TPCOM 


00830 

UR1 TE <6 ,623 > 


00860 

623 FORMAT < / 1 X , *CONST ANT TP DUTY CYCLE SCHEME*/) 

00850 

622 CONTINUE 


00860 

IF (LPARAM.EQ.O) GO TO 606 


00870 

READ(5,PARAM) 


00880 

606 IF 1LC0MP .EQ.O) GO TO 605 


00890 

REHD(5,C0MP) 


00900 

605 IF (LPC.EQ.O) GO TO 606 


00910 

UR1TE(6,PARAM) 


00920 

WRITE <6,C0NP) 


00930 

606 IF (LSA.EQ.O) GO TO 607 


00960 

GO TO 5 


00950 

607 IF(LRTL.EQ.O) GO TO 608 


00960 

IF < LRLPC .EQ.O) GO TO 609 


00970 

WRITE <6, 660) 


00980 

660 FORMATtlX,* CODE PARAMETER* 


00990 

X /* 1= Cl*/* 2= C2*/* 3- 

R3*/ 

01000 

X * 6= R 6 * / * 5= R5*/* 6= 

m/ 

01010 

X ♦ 7= LO*/* 8= CO*/* 9* 

RL*/ 

01020 

X * 10= El*/) 


01030 

609 URI TEt 6, 61 0) 


01060 

610 FORMA', < IX, *INPUT ROOT LOCUS PARAMETERS*) 


01050 

READ(5,RLPARAM) 


01060 

WRI TE (6 ,RLPARAM ) 


01070 

GO TO 5 


01080 

608 IFtLFREQ.EU.O) GO 10 611 


01090 

IF(LCFR.EO.O) GO TO 5 


01100 

URI TE( 6, 61 3) 


01110 

613 FORMAT <1X,*INPUT FREQUENCY RANGE PARAMETERS*) 
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JL: 


01 1 20 


READ)5,FRPARAN> 

01130 


URITE)0,FRPARAN) 

0j 140 


60 TO 5 

01130 

111 

IF(IPEAK.EU.O) 60 TO 115 

01100 


URITE)0,111) 

01170 

111 

FORNAT) IX, ’INPUT TRANSIENT ANALYSIS PARANETERS*) 

01180 


READ(5,TAPARAN) 

01 1?0 


URITE)0,TAPARAN> 

01200 


60 TO 5 

01210 

115 

IFILOAD.EO.O) 00 TO 121 

01220 


URITE(0,110) 

01230 

110 

FORNAT < IX, ‘•INPUT LOAD CNAN6E PARANETERS’) 

01210 


READ(5,RPARAN) 

01230 


UR1TE(0,RPARAH> 

01200 

121 

CONTINUE 

01270 


IF(LRESP.EO.O) GO TO 100 

01280 


UR i'TE< 0,125) 

01 2V0 

125 

FORNAT) IX,* INPUT TRANSITION RESPONSE PARANETERS* ) 

01300 


READ(5,TRPARAN) 

01310 


URITE(0,TRPARAH) 

01320 

5 

CONTINUE 

01330 


IF(LRTL.EQ.0)0O TO 1 

01310 


URITE(0,212)RPRAH<NRL) ,PRAN)NRL) 

01350 

212 

FORNAT) //’ROOT LOCUS PARANETER » r A2, ♦ ■ *,612.1) 

01300 

1 

CONTINUE 

01370 


OLDEHEI 

01380 


OLDRL-RL 

01300 


RKD=R2/(RHR2) 

01 100 


RN*RN2/RN1 

0)110 


DO 8 1=1,3 

01120 


G 1 ) 1 , 1 ) =6 1 ) 1 , 2 ) =fi2 < 1 , 1 ) =62 ( 1 , 2 ) =03 ( I , 1 ) *G3 ( I , 2 ) =0 . 

01130 


DO 8 J=1 ,3 

OHIO 

8 

F 1 ( 1 , J ) =F2 ( I , J ) uf 3 ( I , J ) =0 . 

01150 


FI ( 1 , 1 )=F2(1 ,1 )=H ./(RL*C04R5*C0)-R5*RL/(XL0*RL+XLG*R5) 

01100 


F3(1,1)*-1./(C0*(R5tRLM 

01170 


FI ( 1 ,2)=F2< 1 ,2)=F3( 1 ,2HRL/<CO»RL-ECO>*R5)-RO*R5*RL/<XLO*Rl* 

01180 


XXL0*R5) 

01 100 


FI (2,1 )=F2(2,1 ) = -1 ./XLO 

01500 


FI (2,2)=F2(2,2)=F3)2,2)=-R0/XL0 

01510 


FI (3, 1 )=F2(3, 1 )=C2/(RL*C1 *CO*R5*CHCOHRN/(R1*C1 )-RKD/<R3* 

0)520 


X C1)+C2*R5*RL/(CHXL0*RL+CHX10*R5> 

01530 


F3(3,1)=-RKD/(R3*C1)tC2/(RL*C1*CO*R5*C1*CO) 

01510 


Pi {3,2) s F2(3,2)*F3<3 r 2)=C2*R0*R5*RL/(C1*XLO*R54C1*XL0*RL )■* 

0)550 


X R'L*fi2/(C1 ♦C0*R5+C1 *CO*RL HRN0R0/<R!*C1 ) 

01500 


Gt(1,U=R5*RL/(XL0*R5fXL0*RL) 

01570 


61 (2, 1 HI , /XLO 

01580 


61(3,1 )='RN/(R1’C1 )-C2*R5*RL/(CHXL0*R5+Ct*XL0*RL) 

01500 


61 (3, 2)=G2(3,2)*G3)3,2) c RKD/(R3*CI ) 

01 000 


U( 1 , 1 )=EI 

OHIO 


U<2, 1 HER 

01020 


P0=ER**2/RL 

01030 


LP=XLO*PO 

01010 

7 

CONTINUE 

01050 


IF(LDUTY.EQ.I) 60 TO 11 
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01440 

01470 

01480 

01490 

01700 

01710 

01720 

01730 

01740 

01750 

01740 

01770 

01780 

01790 

01800 

01810 

01820 

01830 

01840 

01850 

01840 

01870 

01880 

01890 

01900 

01910 

01920 

01930 

01940 

01950 

01940 

01970 

01980 

01990 

02000 

02010 

02020 

02030 

02040 

02050 

02040 

02070 

02080 

02090 

02100 

02110 

02120 

02130 

02140 

02150 

02140 

02170 

02180 

02190 


DN«EI*<EI-ER> 

T0N»<tP*S0RMLP**242.*DN*LP*TF>)/DN 
TF1»T0N*(El-ER)/ER 
IF2-TF-TF1 
TP* F 094-9 1 F 
60 TO 42 
41 CONTINUE 

GTON*SURT ( 2.*LP*TP ) 

T0N«GTQN/SQRT(EI>*<EI-E»O) 

TF1»TQN*(EI-ER)/ER 

TF2*Tp-TQN-TF1 

42 CONTINUE 
TEPS-EPS 
DELTON=XNU*TQN 
IF(TF2. fit. TIPS) 60 TO 4 
NODE® 1 

IF < LDUTT .EQ. 1 ) GO TO 43 
T0N S TF*ER/(E1-ER) 

TF1=TF 
TP=TUN*TFt 
60 TO 44 

43 TON=TP*ER/E I 
TF1=TP=T0N 

44 CONTINUE 
OTON-TON 
0TF1=TF1 
DELfON=XNU*TQN 
IT*0 

SC1=XNATHT0N,EI,ER) 

19 DNA (CM*<XNAT1 <TQN*DELTQN,EI f ER)-SC1 ) /DEL TON 
TON=TON-SC1/DNATCH 
SCI *XHAT1 <TON,EI,ER) 

n*mi 

IF < ASS (SCI 1.LE.EPS) GO TO 20 
IF( IT.LT.NI7> GO TO 19 
TON-OTON 

20 CONTINUE 

IF< LDUTY.EU. 1 ) 60 TO 45 
TF1 =TF 
TP=T0NTTF1 
60 TO 44 

45 CONTINUE 
TF1 =TP-TON 

44 CONTINUE 

CALL PHOrtAT <PHlP f D2, TP f F1 , 61 ) 

CALL PHDNA f < PHI2 f D2 f TF1 ,F1 f 61 ) 

CALL PHBriA T (PH1 1 ,01 r TON, FI ,61 ) 

DO 22 1=1,2 
DO 21 J=1 ,2 

21 TEMPI <I,J)»-PHIP(I,J) 

22 tenpki, n*i .♦ reriPi < I f I ) 

DET=TEMP1 < 1 , 1 ) * TEMPI <2, 2) -TEMPI (2, 1 >*TEMP1 ( 1 , 

IF ( ADS( DET ) . IT . 1 . E*8 ) GO 10 250 

TVEC1 < 1 J=PHI2(1 , 1 >*D1(1,mpHl2(1,2)*D1(2,1> 
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02200 
02210 
02220 
02230 
02240 
02230 
02200 
02270 
02280 
02290 
02300 
02310 C 
02320 
02330 
02340 
02330 
02300 
02370 
02300 
02390 
02400 
02410 
02420 
02430 
02440 
02430 C 
02400 C 
02470 C 
02480 C 
02490 
02300 
02310 
02520 
02530 
02540 
02550 
02500 
02570 
02580 
02590 
02000 
02010 
O2020 
02030 
02040 C 
02050 
02000 C 
02070 
02080 
02090 
02700 
02710 
02720 
02730 


TVEC1 (2 )*PHI2(2, 1 ) *D1 ( 1 , 1 )*PHI2(2,2)*D1 <2, 1 ) 

X(1,1 )**EI*<UNP1<2,2>*TVECM1)-TE8P1 (1 ,2)*IVEC! < 2 ) ) /DC'f 
X<2, 1 )«EI*< TENP1 < 1 1 1 > * T VEC 1 (2)-TENP1 <2,1 >• TVEC1 < 1 ) )/DEI 
X<3,ns£T-PHl1<3,1)*X<1,1>-PHI1<J,2)*X<2,1>-DH3,1>*EI 
X -D1 (3,2)*£R 

Y<1,1)«PHI1<1,1)*X<1,1 )4PHII < 1 f 2>4X<2, 1 )4D1 <1,1 )*EI 
Y( 2, 1 )*PH1 1 <2,1)4X11,1 )*PM1 1 (2,2)*X<2, 1 )+D1 (2,1 )*E1 
Y(3,1>-ET 

SCI *PH 1213,1 )*Y ( 1 , 1 HPH12(3,2)*Y (2,1 )*ET*D2<3,2 )*ER 

00 32 I»1 ,3 

32 RIPX(I,1 )-X< 1 , 1 )'Y<1,1) 

If (LRH.EQ.2) G/j TO 30 
TPCY*100. i *TOO/H > 

UR 1TE (0,35) El,RL ,NQDE,TPCT , TON, Tf 1 , IP ,X ,Y ,RIPX, SCI , IT , TEPS 
35 fQRNAT (/*EI**,G15.4,* RL**,G15.4,« MODE 3 *, 13, 

X * TPCT 3 *,G15.4/*10N«*,G15.4,* Tf I 3 *, 015. 4,* TP 3 *, 

X G15.4/* X-*,3G15,4/* Y 3 *,3G15.4/*RIPX**,3615.4/ 

X * SCI =* , G1 5. 4 ,* I T S *,I3,* TEP8**,G15.4) 

30 CONTINUE 
GO TO 50 
0 CONTINUE 
N0DE*2 
PTON=TON 
PTf 1 a Tf 1 

CALL STATE 11 TON, TF 1 ) 

PRINT 17, TON, TP! ,TF2,X,Y,Z 
17 fORNAT (^APPROXIMATE STEADY STATE*/*TON 3 *, G15.0, 

X* Tf 1=*,G15.0,* TF2 S *,G15.0/ 
X*X 3 *,3G15.0/*Y=*,3G15.0/*Z 3 *,3G15.6//) 

1 T*0 

CALL SNA T1 <T0N,TF1 ,TP2,SC1 ,XHU,XLO,PO) 

9 CALL SNAT1 ( TON* DEL TON, TP 1 ,'TF2,SC2,XNU,XL0,P0) 

DSMAT1 e (SC2-SC1 )/DELTON 
TON=TON-SC1 /OSNAT 1 

CALL SNAT1 (TON,Tf 1 ,TP2,SC1 ,XNU,XLO,PQ> 

1T-1T+1 

If (ABS(SCU.LE.EPS) GO TO 10 
If ( IT .LT.NIT) GO TO 9 
Tfl-PTfl 
TON=PTON 

CALL SNAT 1 <TON,Tf 1 ,TP2,SC1 ,XNU,XLO,PO) 

10 CONTINUE 
U DO 12 1*1,3 
12 RIPX(I,1 ) 3 X ( 1 , 1 > - Y < 1 , 1 ) 

IF (LRTL.EQ.2) GO TO 50 
TPCT=lOO.*TON/TP 
If (LRTL.EO .2 ) GO TO 50 
If (NTR.EQ.2) GO TO 30 

UR1TE1 0,55 ) EI,RL,HODE,TPCT,TON,TF1,TF2,TP,X,Y,Z,RIPX,SC1,IT 
55 fORNAT(/*EI=*,G15.4,* RL**,G15.4,* NODE 3 *, 13, * TPCT 3 *, 

X G15.4/*T0N=*,G12.4,* Tf 1 3 *,G12.4,* Tf 2=*,G1 2. 4,* TP 3 *, 

X PI 2.47* X=*,3G15.4/* Y = *,3G15.47* Z 3 *, 3015.4/ 

X *RIPX S *,3G15.4/* SCI =*,G15.4,* IT 3 *,I3 f * TEPS 3 * ,G15 .4 > 

57 CONTINUE 
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,L 




02740 

54 

CONTINUE 

02750 


CALL PSINAMPSi, T0N,TF1 ,X,U,XNU) 

02740 


CALL RNCPY(PSY,PSI,3,J) 

02770 


ITBL <11*3 

02780 


1TBL( 5)*0 

02790 


CALL ORAL ( PS Y , R , 3 , K , 0 , 1 NT , I OD , I T BL ) 

02800 


IF (LRTL.NE.2) 00 TO 47 

02810 

C 

URITE<4,48) NODE, TPCT 

02820 

47 

CONTINUE 

02830 

48 

FORNAT < 'NODE ■*,12 t * DUTY CYCLE m,F5.2/) 

02840 


URITE(4,70) < (PS1 < I r J) , J*1 ,3) , I a 1 ,3) 

02850 

70 

FORNAT ( /9pSI a * ,3G15.4/2(4X ,3615.4/ ) ) 

02840 


IF<NTR.EQ.2) 60 TO 74 

02870 

72 

URITE(6 ,74) ( (R< 1 , J) , J*1 ,2) ,I 3 1 ,3) 

02880 

74 

FORNAT < /4X f *REAL*, 1 1X,*IHA6*,7X,2G15.4/4G15.4) 

02890 

74 

CONTINUE 

02900 


IF(LRESP.EQ.O) GO TO 550 

029)0 


CALL PHDNATiPHIl ,D1 , TON, FI ,61 ) 

02920 


CALL PHDNAT(PHI2,D2,TF1,F2,G2> 

02930 


IHHODE.EO.t ) GO TO 589 

02940 


CALL PMDNANPHI3,D3,TF2,F3,G3) 

02950 

589 

CONTINUE 

02940 


tine=oldtine 

02970 


IF (LTR.EU.2) GO TO 501 

02980 


IF (NODE. E0.1) 60 TO 500 

02990 


CALL RNCPYIZTR, 2,3,1) 

03000 


V0TR=2TR( 1 , 1 )-ER 

030)0 

C 

URITE(4,599 ) TINE, ZTR, VOIR 

03020 


UR1 TE< 7,599)TINE,ZTR,U0TR 

03030 

599 

F0RNATI4G12.4) 

03040 


GO TO 301 

03050 

500 

CONTINUE 

03040 


CALL RNCPY< YTR,Y,3,1 ) 

03070 


VOTR=YTR <1,1 >-ER 

03080 

C 

WRITE(4 r 599)TINE,YTR,V0TR 

03090 


URITE(7, j99 )TINE, YTR,OOTR 

03100 

501 

CONTINUE 

03)10 


T1HE=TINE+T0N 

03120 


IF( NODE .EU. 1 ) GO TO 50? 

03130 


CALL STS 1 (X TR,PHI3,ZTR,D3,U) 

03140 


GO TO 503 

031 50 

502 

CONTINUE 

03140 


CALL STSKXTR,PHi2,YTR,D2,U) 

03170 

503 

CONTINUE 

03180 


VOTR=XTR( 1 , D-ER 

03190 

C 

URITE(4 ,599 )T INE,XTR, VOTR 

03200 


URITE(7,599)TINE,XTR,V0TR 

03210 


TINE“TINE+TF1 

03220 


CALL STS 1 ( YTR, PH1 1 ,XTR, D1 ,U) 

03230 


VOTR=YTR< 1 , 1 )-ER 

03240 

C 

URI TE ( 4,599 )TIHE,YTR, VO TR 

03250 


URITE(7,599)TINE,TTR,V0TR 

03240 


IF ( NODE .EQ. 1 ) GO TO 504 

03270 


TINE=TINE+TF2 
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i. 


03280 


CALL STS1(ZTR,PH12,YTR,D2,U) 

03290 


V0TR*ZTR<1 , 1 ) — ER 

03300 

C 

URI TE <6 ,599 )T IHE, ZTR, VOTR 

03310 


WRITE! 7,599 ) TIME, ZTR, VOTR 

03320 

504 

CONTINUE 

03330 


IFUIME.GT .TFINAL) GO TO 505 

03340 


IF ( TIME .LT.TSUIT) GO TO 501 

03350 


IF < LTR. EQ. 2 ) GO TO 501 

03360 


IF(M0DE.£0.2) GO TO 506 

03370 


CALL RNCPY(2TR, YTR,3, 1 ) 

03380 

506 

CONTINUE 

03390 


0<1,1 ) -E I SU I T 

03400 


E1=E1SU1T 

03410 


GLDTINE-TINE 

03420 


LTR S 2 

03430 


GO TO 7 

03440 

505 

CONTINUE 

03450 


0LDTIME=0. 

03460 


LTR=1 

03470 


MTR=2 

03480 


LRESP=0 

03490 


GC TO 7 

03500 

550 

CONTINUE 

03510 


NTR=1 

03520 


IF (LFREQ.EQ.O) GO TO 150 

03530 


CALL GANH1 (GAN,T0N,TF1 , X,U,XMU) 

03540 


URI,TE(6,75) < GAM <1,1 >,1-1,3) 

03550 

75 

FORMAT (/*GAM=*/3(G15.6/) ) 

03560 

69 

CALL FRE01 (PSI ,GAN,H,THETAO,THETftF,DELTHET,EI ,ER) 

03570 


READ(5,FRPARAN) 

03580 


IF ( THETAF.EQ .0 . )G0 TO 149 

03590 


WRITE(6,FRPARAN) 

03600 


GO TO 6V 

03610 

149 

CONTINUE 

03620 


LFREQ=0 

03630 

150 

CONTINUE 

03640 


IF(LFE.EO.I) GO TO 160 

03650 


IF (LPEAK .EO.O) GO TO 200 

03660 


DO 152 1=1,3 

03670 

152 

XFPII , 1 )=X( I ,1 ) 

03680 


EI-EI8UIT 

03690 


U < 1 , 1 ) =E I 

03700 


LFE=1 

03710 


URITE(6, 189) 

03720 

189 

FORMAT < IX, ♦SET UP El STEP INPUT*) 

03730 


GO TO 7 

03740 

160 

CALL GVSH1 (PSI,XFP,NK) 

03750 

200 

CONTINUE 

03760 


LPEAK=LFE=0 

03770 


EI=OLDEI 

03780 


U< 1 ,1 )=E1 

03790 


IFILRL.EQ. 1 ) GO TO 161 

03800 


IF(LOAD.I'Q.O) GO TO 201 

03810 


RL=RLSUIT 
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03820 


LRL = 1 

03830 


DO 153 1 = 1 ,4 

03840 

153 

XFP(I,1)*X(I,1) 

03850 


UR1TEU, 188) 

03800 

188 

FORMAT (IX, +SE T UP RL LOAD CHANCE*) 

03820 


60 TO 4 

03880 

161 

CALL 0VSM1<PSI,XFP,NK) 

03890 

201 

CONTINUE 

03900 


LOAD'LRL'O 

03V10 


RL-OLDRL 

03920 


IF(LRTL.EO.O) GO TO 300 

03930 


PRAH<NRL)=PRAM(NRL)+DPRAM 

03940 


I F < PRAM ( NRL ) .GT.PRANF ) GO TO 300 

03950 


LRTL=2 

03900 


GO TO 5 

03920 

250 

URITE(6,252) IT,X 

03980 

252 

FORMAT <*!JNSCHEDULED TERMINATION IT=»,I3,/*X**,3G15.6/) 

03990 

300 

CONTINUE 

04000 


GO TO 400 

04010 


END 

04020 

C 


04030 

C 


04040 


SUBROUTINE QVSHKPSI ,XPP,NK) 

04050 


DIMENSION PS1 (3,3) ,XFP(3, 1 ) f DELXP < 3 f 1 ) ,TVEC(3, 1 ) 

04060 


C0MN0N/STATE/X<3,1),Y<3,1),2<3,1),U<2,1) 

04020 


DO 10 1-1,3 

04080 

10 

DELXP (I , 1 ) =XFP(1 ,1 )-X< 1, 1 ) 

04090 


DO 30 NN- 1 ,NK 

04100 


WRITE (6,12) NN, DELXP 

04110 

12 

FORMAT ( 13,3015.6) 

04120 


CALL RMMUL(TVEC,PSI ,DELXP ,3 ,3 , 1 ) 

04130 


DO 14 1=1,3 

04140 

14 

DELXP < 1 , 1 )=TVEC( 1,1) 

04150 

30 

CONTINUE 

04160 


RETURN 

04120 


END 

04180 

C 


04190 

C 


04200 


FUNCTION ZETA1 (T,X,U) 

04210 


DIMENSION PHI1<3,3),D1<3,2),X(3,1),U<2,1> 

04220 


COMMON/P ARAM/FI < 3, 3 ) ,F2 (3 ,3 ) ,F3( 3,3) ,G1 ( 3,2) , 

04230 


XG2( 3, 2 > ,G3 ( 3, 2) 

04240 


COHNON/EXTPAR/NIT ,EPS,TP,ET,MODE,TF,LDUTY 

04250 


CALL PHDMAT < PH 1 1 ,D1 ,T ,F1 ,G1 ) 

04260 


ZETA1 S "ET+PH1 1 (3, T )*X< 1 , 1 )+PHI 1 (3,2)*X(2, 1 ) 4-PH1 1 <3,3)*X<3, 1 ) + 

04220 


X D1 ( 3, 1 ) *U ( 1 , 1 ) +D1 ( 3, 2 )*U< 2, 1 ) 

04280 


RETURN 

04290 


END 

04300 

C 


04310 

c 


04320 


SUBROUTINE FREQ1 <PSI ,DVEC,H,THETAO, THETAF,DELTHET,EI,ER ) 

04330 


DIMENSION PS I (3,3) ,DVEC<3, 1 ) , H < 3 ) 

04340 


DIMENSION A(3,3),AINV(3,3),B(3,3),U(3,3),V(3,3) , TEMPI (3,3) 

04350 


DIMENSION TEMP2(3,3),TVEC1 (3,1 ),TVEC2<3,1 ) 
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04360 

04370 

04380 

04390 

04400 

04410 

04420 

04430 

04440 

04450 

04460 

04470 

04480 

04490 

04500 

04510 

04520 

04530 

04540 

04550 

04560 

04570 

04580 

04590 

04600 

04610 

04620 

04630 

04640 

04650 

04660 

04690 

04700 

04710 

04720 

04730 

04740 

04750 

04760 

04770 

04780 

04790 

04800 

04810 

04820 

04830 

04840 

04850 

04860 

04870 

04880 

04890 

04900 

04910 


COMMON/EXTPAR/NI T t EPS, TP, El , MODE, TF, LDUTY 
DEGRAD*180./3. 1415927 
RADDEG=1 ./DEGRAD 
THETA=THETAO-D£LTHET 
DO 2 1*1,3 
DO 2 J*1 ,3 
2 B(I,J)=0. 

WRITE (6 , 1 ) El 
1 FORMAT <//*£!=*, 012.6/ , 

X * TMETA FREQ 4H2> BBEL*,5X,*G*, 1 IX,*REG*, 10X,*IMG*. 

X 6X,*PHASE*> 

5 CONTINUE 

THETA=THETA+DELTHET 

THET=RADOEG*THETA 

FRE*THET/<6.2831853*TF) 

RX=COS<THET) 

RY=SIN<THET 1 
DO 12 1*1,3 
DO 10 J=1 ,3 
10 AU,J)=-PSI(I,J) 

A < 1 , 1 )=A< 1 ,1 1+RX 
12 B< I , I )=RY 

IF<A8S(RY ).LT.1 .E-10) GO TO 25 
RYIV=1./RY 

CALL RMMUL ( TEMPI , A, A ,3,3,3) 

CALL RMSCLR<TEMP2,RYIV, TEMPI ,3,3) 

DO 14 1*1,3 

14 TEMP2 < I , I )=7EMP2( I, I )+RT 
CALL RMINV(V,TEMP2,3) 

CALL RMMUL (U, A, 0,3,3,31 
DO 16 1=1,3 
DO 16 J=1 ,3 
U< I, J)=RYIV*U<I , J) 

16 V<I,J)=-V<I ,J) 

GO TO 50 

25 CALL RMINV< AINV,A, 3) 

DO 30 1*1,3 
DO 30 J=1 ,3 

30 TEMPI < I , J)=AINV<I , J)*RY**2 
CALL RMADDCTENP2,A,7£MP1,3,3) 

CALL RMINU(U,7EMP2,3) 

CALL RMMUL (V,AINV,U,3,3,3) 

DO 34 1*1,3 
DO 34 J»1 ,3 
34 VU,J)=-RY*V<I,J) 

50 CONTINUE 

CALL RNNUL<TVEC1,U,DVEC,3,3,1) 

CALL RMMUL ( TVEC2, V, DUEC,3,3, t 1 
GRE=GIM*0 . 

DO 55 1=1,3 

6RE=GRE+H< I ) * T VEC 1 <1,11 
55 G1M=6IM+H< I ) * T VEC 2 < 1,1) 

G=SQRT(GRE**2+GIM**2) 

DBEL=2Q.*AL0G10<G*EI/£R) 
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04*20 

04*30 

04*40 

04470 

04480 

04*50 

04*40 

04*70 

04980 

049*0 

05000 

05010 

05020 

05030 

05040 

05050 

05040 

05070 

05080 

050*0 

05100 

05110 

05120 

05130 

05140 

05150 

05140 

05170 

05180 

051*0 

05200 

05210 

05220 

05230 

05240 

05250 

05240 

05270 

05280 

052*0 

05300 

05310 

05320 

05330 

05340 

05350 

05340 

05370 

05380 

053*0 

05400 

05410 

05420 

05430 


PHAi!E=DEGRAD*ATAN2(GIM ,GRE ) 

WRITE <4, 40) THETA,FRE ,DBEL ,6,GRE,6IH,PHASE 
40 FORMAT (F6.2,G12.4,F9.2,3G12.4,F9.2) 

WRITE ( 7, 5* )F RE, DUEL, PHASE 
5* FORMAT (3G15.6) 

IF ( THETA. LT .THE TAF-O.S*DELTHET ) GO TO 5 
100 CONTINUE 
RETURN 
END 

C 

C 

SUBROUTINE PHDNAT < PHI , D, T , F ,G ) 

DIMENSION PHI(3,3),D(3,2),FSQ(3,3),F(3,3),3(3,2),B(3,3) 
DIMENSION TAR1 (3,3), TAR2(3,3), TVECK3) 

ALPHA=-0.5* (F ( 1 , 1 > +F< 2,2 ) ) 

DET=0.25 : *(F < 1 , 1 )+F<2, 2) )* ! *2-F (1,1 )*F< 2, 2)+F( 1 , 2 )*F (2, 1 ) 

1FIIET.LT. 0.) 00 TO 20 

A=-ALPHA+SQRT<DET) 

B=-ALPHA-8QRT(DET) 

EXPA=EXP(A*T)-1. 

EXNA=EXP(-A*T>-1 . 

EXPB e EXP(B*T)-1 . 

EXNB=EXP(-B*TM. 

CC1=A*BMA-B) 

GAMl = <A* i *24EXPB-B**2'»EXPA)/CC1 

GAM2=(B*EXPA-A*EXPB)/CC1 

CC2=A**2*(A-B) 

CC3=B«”»2*(A-B) 

XII =- (A+B )*T/< A'-*B )-A*EXNB/CC3+B*EXNA/CC2 

XI2-T/(A*B)-EXNA/CC2+£XNB/CC3 

GO TO 30 

20 BETA=SQR T ( -DET > 

CC3=1 . /(ALPHA* *2+BETA* ! *2) 

CC1=2.*ALPHA*CC3 

CC2=(ALPHA**2-8ETA**2)/(2.*ALPHA*BETA) 

CC4=ALPHA/BETA 
SB=SIN< BETA*T ) 

CB=COS (BET A* T ) 

ENAL=EXP(-ALPHA*T) 

EPAL=EXP(ALPHA*T ) 

GAM1=CC1*(1 . -EMAL* (CC2*SB+CB ) ) 

GAM2=CC3*<1 .-EMAL*(CC4*SB4CB)) 
GRAL1=CC3*(EPAL*<ALPHA*CB+BETA*SB)-ALPHA> 

GRAL2 = CC3*(EPAL*( ALF'HA*SB-BE7A*CB)+BETA) 

X1 1 =CC 1 * ( T-GRAL 1 +CC2*6RAL2 ) 

XI2=CC3* ( T-GRAL 1 +CC4*6RAL2) 

30 CALL RHSCLR<TAR1,GAM1,F,3,3) 

CALL RMMUL <FSQ,F,F,3,3,3) 

CALL RNSCLR< TAR2,GAM2,FSQ,3,3> 

CALL RMADD(PHI,TAR1 ,TAR2,3,3) 

DO 10 1=1,3 

10 PHK 1 ,1 )=PHI (I , I ) + 1 . 

C MATRIX PHI(T) HAS BEEN COMPUTED 
CALL RMSCLR( TAR1 , XI 1 ,F , 3,3 ) 


05440 

05450 

05460 

05470 

05480 

05490 

05500 

05510 

OS520 

05530 

05540 

05550 

05560 

05570 

05580 

05590 

05600 

05610 

05620 

05630 

05640 

05650 

05660 

05670 

05660 

05690 

05700 

05710 

05720 

05730 

05740 

05750 

05760 

05770 

05780 

05790 

05800 

05810 

05820 

05830 

05840 

05850 

05860 

05870 

05880 

05890 

05900 

05910 

05920 

05930 

05940 

05950 

05960 

05970 


CALL RMSCLR(TAR2,XI2,FSQ,3,3) 
CALL RMADD(TAR1 ,TAR1 ,TAR2,3,3) 
DO 12 1=1,3 

12 TAR1 <I,I)=TAR1(I,1)+T 

CALL RMMUL (B, PHI , TAR 1 ,3,3,3) 
HATRIX B(T) HAS BEEN COMPUTED 
CALL RMHUL(D,B,G,3,3,2) 

MATRIX D < T ) HAS BEEN COMPUTED 
RETURN 
END 


SUBROUTINE STA TE1 ( TON, TF1 ) 

DIMENSION PH II (3,3) ,PHI2<3,3) ,PHI3(3,3),D1(3,2),D2(3,2), 
XD3 ( 3 , 2 ) 

COMMON/PARAM/ PI <3,3),F2<3,3) ,F3<3,3> ,61 (3,2) ,62(3.2), 
XG3(3,2) 

C0MM0N/EXTPAR/NIT,EPS,TP,ET,M0DE,TF,LDUTY 
C0MM0N/STATE/X(3, 1 ),Y(3,1),Z(3,1 ),U(2,1 ) 

TF2=TP-T0N-TF1 

IF(LDUTY.EQ.2)TF2=TF-TF1 

CALL PHDMAT (PHI1 ,D1 ,T0N,F1 ,G1 ) 

CALL PHDMAT (PH 12 ,D2,TF1 ,F2,G2) 

CALL PHDMAT (PH 13, D3,TF2,F3,G3) 

A=1.-PHI3(1,1)*(PHI2(1,t)*PHI1(1,1 )+PHI2( 1 ,2)*PHI 1(2,1)) 

X -PH 1 3 < 1,2)*( PH 12(2,1 ) *PH 1 1 (1,1 ) +PHI2( 2,2) **PH1 1(2,1)) 
B=PHI3( 1 , 1 )*(PHI2< 1 , 1 )*D1 ( 1 , 1 ) +PH 12 < 1 ,2 )*D1 <2, 1 )+D2( 1 , 1 ) ) 
C=PHI3(1,2)*(PHI2(2,1)*D1(1,1)+PHI2(2,2)=*D1(2,1)+D2<2,1)) 
IF< ABS(A) .LT.EPS) GO TO 250 
X ( 1 , 1 ) =(B+C+D3( 1 , 1 ) )*U( 1 , 1 )/A 
X(2,1 )=0. 

X(3,1)=ET-PHI1(3,1 )*X<1,1) -PHI1(3,2)*X<2,1 )- 
X D1(3,1)*U(1,1)-D1(3,2)*U(2,1) 

CALL STS1 ( Y , PH 1 1 ,X,D1 ,U) 

CALL STS1 <Z,PHI2,Y,D2,U) 

60 TO 23 

250 URITE<6,252) A 

252 FORMAT < /‘‘UNSCHEDULED TERHINATI0N*/*A=*,G12.6) 

23 RETURN 
END 


SUBROUTINE STS1 <U2,PHI ,U1 ,D,U) 

DIMENSION PH 1(3,3) ,U1 (3,1 ),U2(3,1 ),D<3,2) ,U(2,1 ), 
XTEMPY1 <3,1 ) , T EMP Y 2(3,1 ) 

CALL RMNUL( TEMPY1 , PHI ,01 ,3,3,1 ) 

CALL RMMUL ( TEMP Y2,D,U, 3, 2,1 ) 

CALL RNADD(U2,TENPY1 ,TEHPY2,3, 1 ) 

RETURN 

END 


SUBROUTINE PSIMA'I (PS1, T0N,TF1 ,X,U,XMU) 

DIMENSION X( 3, 1 ) ,FBARO (3 , 1 ) ,FBAR(3, 1 ) , PS 1(3,3) , 
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05980 

05990 

04000 

04010 

04020 

04030 

04040 

04050 

04040 

04070 

04080 

04090 

04100 

04110 C 

04120 

04130 

04140 C 

04150 C 

04140 

04170 

04180 

04)90 

04200 

04210 

04220 

04230 

04240 

04250 

04240 

04270 

04280 

04290 

04300 

04310 

04320 

04330 

04340 

04330 

04340 

04370 

04380 

04390 

04400 

04410 

04420 

04430 C 

04440 

04450 

04440 

04470 C 

04480 

04490 

04500 

04510 


XU<2,1 ),Y(3,1 ),PH11 (3,3) ,D1 (3,3), 

XTEMPY) (3, 1 ) ,TENPY2( 3 , I ) ? DEL 7 X < 3 f 1 ) 
CQNMQN/PARAM/F1(3,3),FZ(3,3),F3(3,3>,G1(3,2>, 

XG2<3, 21,63(3,2) 

COMMON/EXTPAR/NIT ,EPS ? TP,ET ,MODE,Tf ,LDUTY 

VARY OR* TON 

VARTF 1*TF1 

DELTQN*XNU*10N 

DELTF1*XMU*TF1 

DO 71 1*1,3 

71 DELTX(I,1 >*XMU*ABS(X(I,1)> 

0 E L T X < 2 , 1 )*XMU 

CALL FFUNC1 ( VART0N,VARTF1 ,X,U,FBARO) 

PRINT 51 ,FBAR0 

51 FORNAT(*FBARO**,G15.4/2(4X,G15.4/) ) 

DO 48 J=1 ,3 

IFU.NE.2) GO TO 54 
1HN0DE.EG.2) GO TO 72 
54 X(J,1)=X(J,1 )FDELTX(J,1> 

IT=0 

SC1=ZETA1(VART0N,X,U) 

47 DZETA1MZETA1 (VART0N+DELT0N,X,U)-§C1 > / DEL TON 
JT = IH1 

VARTQN=VART0N-SC1/DZETA1 
SC1=ZETA1 (VARTON,X,U) 

IF(ABS(SC!).LT.EPS) GO TO 44 
1FUT.LT. NIT) 00 TO 47 
URITE(4,41> IT, SCI 

41 FORMAT UMAX ITERATION ON TON. IT-*, 13,4 SC1=*,G12.4/) 
GO TO 70 

44 IFIMODE.EG.I ) GO TO 45 

CALL PHDMAT (PM11 ,D1 ,VART0N,F1 ,G1 ) 

CALL STSt ( Y ,PHI 1 ,X,D1 ,U > 

1 T-0 

B1=BNAT1(VARTF1,Y,0) 

43 DBMBMAT1 (VARTF1+DELTF1 , Y,0)-B1 )/DELTF1 
I T = 1 T ♦ 1 

VARTF1=0ARTF1-B1/DB 
B 1 = BHAT 1 (VARTF1,Y,U) 

IF ( A B B 4 B 1 ) .LT .EPS ) GO TO 45 
1FUT.LT. NIT) GO TO 43 
UR1TE<4,44) I T , B 1 

44 FORMAT (*NAX ITERATION ON TF1 . 11=*, U,* SC1**,G12.4/) 
GO TO 70 

45 CALL FFUNC1 (VAR TON, VARTF 1,X,U,FBAR) 

PRINT 53, VARTON, VARTF1 

53 FORMAT ( * V AR TON®* , G 1 5 , 4/*VARTF 1 =* , G 1 5 , 4/ ) 

DO 49 1=1,3 

49 PSK J . J)=(FBAR (1,1 )-FBAR0(l , 1 ) )/DELTX ( J, 1 ) 

PRIN' a £ ,r^AR 

52 F0RNAT(*FBAR=*,G1 3.4/3 (5X, 615.4/ ) ) 

X( J, 1 )=X( J, 1 )“DELTX ( J, 1 ) 

GO TO 48 

72 DO 74 1=1,3 
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06520 
06530 
06540 
06550 
06560 
06570 
06580 
06590 C 
06600 C 
06610 
06620 
06630 
06640 
06650 
06660 
06670 
06680 
06690 
06700 C 
06710 C 
06720 
06730 
06740 
06750 
06760 
06770 
06780 
06790 
06f*'>0 

06b) 0 
06820 
06830 
06840 
06850 
06860 
06870 
06880 
06890 
06900 
06910 
06920 
06930 
06940 
06950 
06960 
06970 
06980 
06990 
07000 
07010 
07020 
07030 
07040 
07050 
07060 


74 PS1<I,2>*0. 

68 CONTINUE 

IF(N0D£.EQ.2) 60 TO 70 
CALL PHDNAT(PH11 ,D1 t TP,F1,G1 ) 
CALL RMADD<PSI,PSI,PHi1,3,3> 
70 RETURN 
END 


FUNCTION BNAT1 (TF1 ,Y,U) 

DIMENSION PHI2(3,3),D2(3,2),Y(3,1),U<2,1) 

CONHON/PARAH/ F1(3,3),F2(3,3),F3<3,3),G1(3,2),G2(3,2), 
XG3<3,2> 

COMMON/ EX TP AR/N IT ,EPS,TP,ET ,MQDE , TF, LDUTY 
CALL PHDMAT<PHI2,P2,TF1 ,F2,G2) 

BHAT 1 =PHI2< 2„ 1 )*Y (1 ,1 )*PHI2(2,2)*Y(2, 1 > 

RETURN 

END 


SUBROUTINE FFUNC1 < T0N,TF1 ,X,U, F> 

DIMENSION TENP1 ( 3, 3 ) , TEMP2( 3,3 ) ,PH1 1 (3, 3), PH 12(3, 3), 
XPHI3<3,3) ,D1 <3,2),D2(3,2),D3(3,2) ,PHI ( 3 ,3 ) , V( 3 , 3 ) , 
XFTEMP1 ( 3 , 1 ) ,FTEMP2 ( 3, 1 ) ,F ( 3 ,1 > ,X <3, 1 ) ,U<2, 1 ) , TVEC1 <3, 1 ) 
C0NH0N/PARAM/F1<3,3),F2(3,3),F3<3,3) f 61<3,2),G2<3,2), 
XG3<3,2) 

COMMON/EX TPAR/NIT r EPS, TP, ET f MODE, TF, LDUTY 
IF < MODE .EQ . 2 ) GO TO 1 
TF 1 -TP-TON 

IF(LDUTY.EQ.2)TF1=TF 

CALL PHDHAT<PHI1,D1 ,T0N,F1,GI> 

CALL PHDMAT(PHI2,D2,TF1 ,F1,G1 ) 

TVEC1 ( 1 , 1 )=D1 ( 1 , 1 )+U( 1 , 1 ) 

TVEC1 <2,1 )=D1 (2,1 )*U< 1 , 1 ) 

TVEC1(3,1)=D1(3,1)*U<1,1 )+D1 <3,2)*U<2, 1 ) 

CALL RMMUL(F,PHI2,TVEC1 ,3,3,1) 

F(3,1)=F<3,1 )+D2 < 3 , 2 )*U(2, t ) 

GO TO 2 

1 TF2=TP-TF1 -TON 
IF(LDUTY.EQ.2)TF2=TF-TF1 

CALL PHDrtAT < PH1 1 , D1 , T0N,F1 ,G1 ) 

CALL PHDMAT(PHI2,D2,TF1,F2,G2) 

CALL PHDMAT(PHI3,D3,TF2,F3,G3) 

CALL RMMUL (TEMPI , PHI 3, PHI 2, 3, 3, 3) 

CALL RMMUL (PHI , TEMPI , PH1 1 , 3 ,3,3) 

CALL RMMUL (FTEMP1 ,PHI ,X,3,3,1 ) 

CALL RMNUL(TENP2, TEMPI, D1 ,3,3,2) 

CALL RMMUL (TEMPI , PH 1 3 , D2 , 3 , 3 , 2 ) 

CALL RMADDCTEMP1 ,TEMP2, TEMPI ,3,2) 

CALL RMADD(V, TEMPI ,D3,3,2) 

CALL RMMUL ( FTENP2, V,U, 3,2, 1 ) 

CALL RMADD(F,F TEMPI ,FTEMP2,3, 1 ) 

F ( 2, 1 ) =0 . 

2 RETURN 
END 
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07070 

07060 

07090 

07100 

07110 

07120 

07130 

07160 

07150 

07160 

07170 

07180 

07190 

07200 

07210 

07220 

07230 

07260 

07250 

07260 

07270 

07280 

07290 

07300 

07310 

07320 

07330 

07360 

07350 

07360 

07370 

07380 

07390 

07600 

07610 

07620 

07630 

07660 

07650 

07660 

07670 

07680 

07690 

07500 

07510 

07520 

07530 

07560 

07550 

07560 

07570 

07580 

07590 

07600 


SUBROUTINE GAHH1 (GAN, 10N,TF1 ,X,U,XMU> 

DIMENSION X(3,1),U(2,1) , FBAR0(3 , 1 ) ,FBAR (3, 1 ) ,GAM( 3,1), 
XPH1 1 ( 3, 3) , D1 (3,2 ) , TENPY1 (3,1 ) f T EHPY 2(3, 1 ) f Y (3, 1 ) 
COMMON/PARAM/F 1(3,3),F2(3,3),F3(3,3),G1<3,2), 
XG2<3,2),63<3,2) 

CONNQN/EXTPAR/Nn,£PS,TP,ET,NQDE,TF,LDUTY 

VARTON*TON 

VARTF1=TF1 

DELTON=XNU»TON 

DELTF1=XHU*TF1 

DELU=XNU*ABS(U( 1,0) 

CALL FFUNC1 (UARTON,VARTF 1 ,X,U,FBARO ) 

U< 1 , 1 )=U( 1 , 1 HDELU 
11=0 

SCI =ZETA1 < VARTON ,X ,G ) 

67 DZETA1= (ZETA1 (VARTON+»ELTON,X,U)-SC1 )/DELTON 
i r = i t + 1 

VART0N=VART0N-SC1/DZETA1 
SCt=ZETAl (VARTON,X,U) 

IF (ABS(SC1 I.LT.EPS) GO TO 66 
IF(IT.LT.NIT) GO TO 67 
URITE(6,61 ) IT, SCI 

61 FORMAT UMAX ITERATION ON TON. 1T=*,I3,» SC1=*,G12.6/) 
GO TO 70 

66 CALL PHDNAT (PH II ,D1 ,VART0N,F1 ,G1 ) 

CALL STS1 ( Y , PM 1 1 ,X f D1 ,U) 

1T=0 

IF (NODE. EG. 1 ) GO TO 65 
B1 =BMAT 1 (VARTF1 ,Y,U) 

63 DB=(BNAT1 (0ARTF1*DELTF1,Y,U)-B1 ) /DELTF 1 
1T=IT+1 

VARTF1=0ARTF1-B1/DB 
B1=BHAT1 (VARTF1 , Y,U) 

IF<ABS(B1 ).LT.EPS) GO TO 65 
IFUT.LT.HIT> GO TO 63 
URITE(6,66> IT, HI 

66 FORMAT UMAX ITERATION ON TF1 . IT**, 13,* SCI**, 612. 6/) 
GO TO 70 

65 CALL FFUNC1 <VARTON,VARTFt , X ,U ,F BAR ) 

DO 69 1=1,3 

69 GAN( 1, 1 >=(FBAR( I, 1 >-FBARO(1 ,1 ) )/DELU 
U< 1 , 1 )=U( 1 , 1 )-DELU 
70 RETURN 
END 


SUBROUTINE SMAT1 <TQN,TF1 , *F2,SMAT,XNU,XL0,P0) 

DIMENSION TEMPT 1 (3, 1 > , TEMP Y2 (3,1 > ,PH11 <3,3),D1 (3,2), 
XPHI2( 3, 3 ) , D2( 3, 2 ) ,PHI3( 3,3 ) ,03(3,2) 

COMMON/PARAM/ Fl (3,3>,F2(3,3) ,F3(3,3) ,G1 (3,2) ,62(3,2), 
X63< 3,2) 

COMMON/EX IPAR/NIT, EPS, fP,ET,NODE,TF,LDUTY 




07610 
07620 
07630 
07640 
07650 
07660 C 
07670 
07680 
07690 
O770C 
07710 
07720 
07730 
07740 
07750 
07760 
07770 
07780 
07790 
07800 
07810 
07820 
07830 C 
07840 
07850 
07860 
07870 
07880 
07890 
07900 


C0HM0N/STATE/X<3 f 1 ) ,Y(3,1 > ,Z<3 t 1 ) ,0(2*1) 

TF2MP-TQN-TF1 

IF (LDUTY.EG.2)'TF2 S TF-TF1 

DELTF1=XMU*TF1 

CALL STATE1 < TOW , TF1 ) 

Y(3,1)=ET 

IT=0 

81 =BMAT 1 <TF1 ,Y f U) 

IF(A8S(B1 ) - LT . EPS ) GO TO 32 
31 B2=BNAT 1 <TF HDELTF1 , Y ,U) 

DBNAT1 =< B2-B1 1/DELTF1 
TF1 3 TF1-B1/BBMAT1 
B1=BMAT1 <TF1 ,Y f U) 

IF(ABS< 81 ) .LT .EPS) GO TO 32 


IT=IT+1 

If (IT. LT. HIT) GO TO 31 


URITE<6,33) IT, TF1 f 81 

33 FORMAT ( *NAX . ITERATION ON n«M3 f *TF1**, 
TF1=S0RT(2.*XL0*TP*P0*U)(1 ,1 >-.!)< 2,1 ))/(U( 


IFaDUTT.EQ.2)TF1=TF 
32 CALL PHBNAT<PH12,D2,TF1,F2 f G2) 
CALL STSHZ,PHI2,Y,D2,U> 

Z(2,1 )=0. 

TF2=TP-T0N-TF1 

IF(L1)UTY.EU.2)TF2=TF-TF1 


G15.6 f * B1=*,G15.6/) 
1,1>*U<2,1 


CALL PHDMAT(PHI3,D3,TF2 t F3,G3) 

8HAW(3 f 1)-PH13(3J)*Z(1 f 1)-PHI3(3,2)*Z<2,1 

XPHI3(3,3)*Z(3 f 1 )-D3(3,2)*lK2 r 1 ) -D3( 3, 1 ) »U ( 1 , 
RETURN 
ENO 


)- 

1) 
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07910 C 
07920 C 
07930 
07940 
07950 
07960 
07970 
07980 
07990 
08000 
08010 
08020 
08030 
08040 
08050 
08060 1 1 
08070 12 

08080 
08090 
08100 
08110 
08120 
08130 
08140 
08150 
08160 
08170 
08180 
08190 

08200 100 
0821 0 


FUNCTION XNAT1 (TON, El, ER ) 

DIMENSION PH1P( 3,3) ,PHIF( 3,3) ,PHIN(3,3),DF(3,2),DN(3,2), 

X TEMPI <2, 2),X(3),Y<3), T0EC1 (3) 

COMMON/ PARAM/F 1(3,3),F2(3,3),F3(3,3),G1(3,2),G2(3,2), 

X 03(3,2) 

COMMON/E XTPAR /NIT ,EPS,TP,ET ,MODE ,TF,LDIJTY 
TF1 =TP-TON 

IF(LDUTY.EQ.2)TF1*TF 

CALL PHDHAT(PHIP,DF,YP,F1,G1 ) 

CALL PHDNAT <PM1F,DF,TFI ,f 1 ,01 ) 

CALL PHDMAKPHIN, UN, TOM, FI, 01) 

DO 12 1=1,2 
DO 11 J=1 ,2 
TEMPI <I,J)=-PHIP(I,J) 

TENP1 < 1 , I ) = 1 .+ TEMPI (1,1) 

DET=TENP1 ( 1 , 1 ) * TEMPI (2,2 ) -TEMPT (2, 1 ) =*TEHP 1 (1,2) 

IF(ABS(DET).LT.1.E-8) 60 TO 100 

TVEC1 ( 1 )=PHIF( 1 , 1 ) =9DN< 1 , 1 )+PHIF ( 1 ,2)*DN(2, 1 ) 

TVEC1 <2)=PMIF( 2, 1 )*DN( 1 , 1 )+PHIF(2,2)#DN(2, 1 ) 

X( 1 )=EI*< TEMPI (2,2)* T VEC 1 ( 1 )- TEMPI ( 1 ,2>*TVEC1 (2))/DET 
X(2)=EI*( TEMPI ( 1 , T >*TMEC1 (2)- TEMPI (2,1 >*TVEC1< 1 ) )/DE| 
X(3)=ET-PHIN(3,1 )*X< 1 )-PHIN(3,2)*X(2)-DN(3,1 M*EI-DN(3,2)*ER 
Y ( 1 )=PHIN( 1 , 1 )*X< 1 )+PHIN< 1 ,2)*X(2)+DN( 1 , 1 )*EI 
Y < 2 ) -PHI N <2,1 )*X< 1 )+PHIN(2,2)'M(2)+DN(2, 1 )*EI 
Y ( 3 ) =ET 

8Ct"PHIF(3,1)*Y<1 )+PHlF(J,2)*Y<2)*ETfBF(3,2)*EK 

XMAT1=X(3)-SC1 

RETURN 

END 


Appendix B. Boost Regulator Computer P rogram Description 

The following tables list the boost converter PAS computer program 
nomenc'i autre, namelist parameters/variables, sample case data. 

Table Bl. Boost PAS Computer Program Nomencl autre 
Table B2. Common Variable 
Table B3, Namelist Variables 
Table B4. Nominal Case Data 


Tabl • B1 . Nomancl ature 


R!PX(4,1) 

staady-statc ripple 

PSI(4,4) 

¥ 

PSY(4,4) 

v for eigenvalue computation 

GAM(4,1 ) 

r 

INT (8) 

, 

XFP(4.1) 

^old . 

PRAM(IO) 

[Cl C2 R3 R4 R5 RL N2 

H(4) 

[1 0 0 0] 

R(4,5) 

ORAL 

ITBL (3) 

QRAL 

IVD(4) 

QRAL 

DCLX(4.1) 

AX 

PHI1(4,4) 

♦1 

PHI2(4,4) 

•2 

PHI3(4»4) 

•3 

01(4,4) 

01 

02(4,4) 

02 

03(4.4) 

03 

W(4.1) 



T 
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Table B 2 . Coemon Variables 


C0MM0N/PARAM/ 

FI (4 .4) 
F2(4,4) 
F3(4,4) 
Gl(4,4) 
62(4,4) 
63(4,4) 


C0MM0N/EXTPAR/ 

NIT 

EPS 

NTERMS 

MIT 

TP 

ET 


C0MM0N/ STATE/ 

X(4,l) 

Y(4.1) 

2(4.1) 

U(4,l) 
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Table B3. Namelist Varlabl as 


NAMELIST/PARAM/ 

RO 

LO 

CO 

RS 

Rl 

R1 

R 2 

R3 

R4 

R5 

Cl 

C2 

N1 

N2 

EFF 

El 

ER 

m 

ED 

rr 

TP 

VO 


NAMELIST/L0MP/ 

EPS 

NIT 

XMU 

NTERMS 

MIT 
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Table B4. Nominal Case Data 


RO 

.400 

THETAO 

0 

LO 

36.2E-6 

OELTHET 

5 

CO 

3.E-4 

THETAF 

180 

RS 

0.17 



RL 

50.00 

VO 

37.5 

R1 

61.9E3 

NIT 

10 

R2 

4.9E3 

N1 

22 

R3 

40.2E3 

N2 

11 

R4 

45.1E3 

EFF 

0.80 

R5 

6.04E3 



Cl 

2.2E-9 

NTERMS 

20 

C2 

3.3E-9 

HIT 

5 



LRTL 

0 

EISWIT 

23 

NRL 

2 

XMU 

0.01 

OPRAH 

0 



PRAMF 

0 

El 

28 



ER 

2.75 

LIST 

1 

EQ 

0.2 

LPEAK 

0 

ED 

0.7 

LFE 

0 

ET 

2.5 

NK 

15 

EPS 

l.E-6 

LFREQ 

0 

TP 

33.34E-6 
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The boost converter PAS computer program structure Is Illustrated. 
The flow charts for each of the computer program subroutines are 
presented In Figures B1-B13. Table B5 lists the boost PAS computer 
program. 
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•smM 















FIGURE B1A - FAS 2 GENERAL FLOW CHART 









FO'L'DOUT FRAME 


wMWm 


TFl - TP - 
COMPUTE 
PHI 2, D2 
ERR = X4* 

■TON 

-X4(*+l ) 

_ 1 

1 

5 

RIPX = X-Y 
CALL STATE 2 
TPCT = 100 -TON/TP 


r 

i 


CALL PSIM 2 
RMO 


©* 


LOAD = 0 
LRL = 0 
RL = OLDRL 


CALL OVSH 2 


LPEAK = 0 
LFE = 0 
El - OLOEI 
U(1 ,1 >= El 



LOAD - 0 


RL = RL 
XFP * X 
LRL * 1 


















INPUT NEW ASA 
PARAMETER 
CALL FREQ 2 
LFREQ =» 0 























SUBROUTINE FREQ 2 (PSI, DVEC, H» THETAO, THETAF , OELTHET, El . VO) 


DEGRAD - 180/w 
RADDEG ■ w/180 
THETA -THETAO-DELTHET 
B * 0 


THETA ■ THETA + DELTHET 
THET =* RADDEG - THETA 

FRE - THET/(2irTP) 

R* - COS (THET) 


COMPUTE 
AINV - A' 1 

A . -A" 1 (A+A^SIN^)" 1 
U - (A+X" 1 SIN 2 e)" 1 


COMPUTE 

A - f + I COS(THET) 
B * I SIN (THET) 


|RYl<EPS 


COMPUTE 


+ ISINe 


!sfseSir +ISIN0 )’ 1 


6RE - ZHI[U-DVEC) 

GRE » ZHI[V-DVEC) 

G ■ _{W^ + 6TB 2 ~~ 

DBEL - 20 LOG 10 CG* El /VO) 
PHASE ■ DEGRAD • 

ATAN 2 (GIM, GRE) 


RETURN 


FIGURE B3 - PAS 2 SUBROUTINE 
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FOLDOUT FRAME 


SURROUTINE PSIM 2 (PSI, TON, TFT, X, U, XMU) 


VARTON = TON 
VARTF1 = TF1 
DELTON = XMU -TON 
DELTF1 = XMU TFL 

:n= 

COMPUTE 
AX = XMU- ! X| 

FO = *X + V-U 
DO 68 J = 1 ,4 



COMPUTE 

XJ = XJ + A XJ 
IT = 0 

SCI = ZETA2( VARTON) 



|DZETA2 = [ZETA2 (VARTON 
+OELTON)-SCI]/DELTON 
JIT = IT=1 

jVARTON=VARTON-SCI/DZETA2 
ISC I = ZETA2( VARTON) 




COMPUTE 
*1 (VARTON 
D1 (VARTON 
Y* 3 «1-x*h 
IT = 0 
B1 = BMAT2I 

) 

HJ1-U 
VARTF1 ) 

' j 




DB=[BMAT2( VARTFHDEtTFl) 
4 B1 ]/OELTFl 
IT = IT + T 

VARTF1 * VARTF1 - Bl/DB 
B1 * BMAT2 (VARTF1 ) 








FOLDOUT FRAMES 


JDZETA2 = [ZETA2 (VARTON 
•j+OELTON ) -SC 1 1/0ELT0N 

Jit = it=i 

j VARTON =VARTON-SC I / DZETA 
Jsci = ZETA2( VARTON) 



( SCI| <EPS 



IT<NIT 



COMPUTE 
F = *-X + V-U 

*IJ = (fi-foi)/axj 

XJ = XJ - AXJ 



ITcNIT 


RETURN 


FIGURE 84 - PAS2 SUBROUTINE PSIM 2 

















SUBROUTINE STATE 2 (TON: TFT ) 



FIGURE B6 - PAS 2 SUBROUTINE STATE 2 
SUBROUTINE STS 2 (W2, PHI, W1 , D, U) 



FIGURE B7 - PAS 2 SUBROUTINE STS 2 


I 
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SUBROUTINE PHIN 2 (T» F, PHI) 



FIGURE B8 - PAS 2 SUBROUTINE PHIM 2 






SUBROUTINE FFUNC 2 (TON, TF1 , X, U, F) 



FIGURE B9 - PAS 2 SUBROUTINE FFUNC 2 




SUBROUTINE GAM 2 (TAM. TOM. TF1 , X, U, XMU) 



FIGURE BIO - PAS 2 SUBROUTINE GAMM 2 










SUBROUTINE SHAT 2 (TON. TF1 , TF2, SHAT, XMU. LO. PO. VO) 
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FIGURE B13 - PAS 2 SUBROUTINE ZETA 2 
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00100 

00102 

00110 

00120 

00130 

00140 

00130 

00160 

00170 

00180 

00190 

00200 

00210 


00220 

00230 

00240 

00250 

00260 

00270 

00280 

00290 

00300 

00310 

00320 

00330 

00340 

00350 

00360 

00370 

00380 

00390 

00400 

00410 

00420 

00430 

00440 

00450 

00460 

00470 

00480 

00490 

00500 

00510 

00520 

00530 

00540 


APPENDIX B 
TABLE B5 

BOOST PAS COMPUTER PROGRAM 


PROGRAM PAS2< INPUT , OUTPUT,! APE5= INPUT, I APE6=0UTPUT, 
XTAPE3, TAPE4, TAPE7 ) 

****** BOOST PAS IMPLEMENT TRANSIENT HISTORY ALGORITHM 
♦•**♦* FOR VO COMPUTATION 4.4.78 
****** BOOST PAS MODIFY TF2 CUTOFF CRITERION 
****** TF2.GE. TEPS=1 XTP SPECIFIES HQDE»2 OPERATION 
4***4* MODIFY TRA AND LCA SEQUENCE IN ORDER TO UTILIZE 
**♦♦♦♦ PROPER PSI MATRIX OPERATING POINT (EI/RL) 

***♦♦* ABOVE CHANGES IMPLEMENTED 3.27.78 

****** BOOST PAS FOR TP CONST <LDUTY=1 ) AND 

****** IF CONST <LDUTY=2) 3.23.78 

****** TRA DELTA VO HISTORY 3.22.78 

****** LCA LOAD CHANGE ANALYSIS RL TO RLSWIT 3,22.78 

******TAPE4 IS ASA DATA 

*#****TAPE3 IS TRA DATA 

DIMENSION RlPX(4 f 1 ) ,PSI (4,4) ,PSY(4,4) ,GAH(4, 1 ) ,1NT (8), 
XXFP(4, 1 ) ,PRAM( 10) ,H(4) ,R(4,5) , 1TBL<3>, IVD(4) , DfcLX< 4, 1 ) , 
XPHI1 (4,4) ,PHI2(4,4 ) ,PHI3<4,4) ,D1 (4,4) ,D2<4,4),03(4,4) , 

XU< 4, 1 >,RPRAH(10>,XTR<4,1),YTR(4,1> f ZTR<4,1 ) 

COMMON /PARAM/F1 (4,4),F2(4,4),F3'(4,4),G1(4,4),G2<4,4), 
XG3(4,4) 

COMMON/EXTPAR/NIT ,EPS,NTERMS,M1T,TP,TF,LDUTY,ET,MGDE,XNU 
COMMON 7STATE/X(4,1),Y(4,1),Z(4,1),U<4,1) 

EQUIVALENCE (PRAM( 1 ) ,C1 ) , (PRAM(2) ,C2) , 

X ( PRAM < 3 ) ,R3 ) , <PRAM(4 ) ,R4 ) , (PRAM<5) ,R5 ) , 

X( PRAM(6) ,RL ) , (PRAM(7) ,N2) ,(PRAM(8 ) ,L0) , 

X(PRAM(9) ,C0 ) , ( PRAM ( 10) ,EI) 

REAL L0,N1 ,N2,KD,KL,N,LP 

DATA RO ,LO,C0,RS,RL/.4O0,36. 2E-6 ,3.E-4 , . 1 7,50.00/ 

DATA R1 ,R2,R3,R4,R5,C1 ,C2/61 .9E3,4.9E3,40.2E3,22.55E3, 
X6.04E3,2.2E-9,3.3E-97 
DATA EISUIT,XMU/23.,0.01/ 

DATA El, ER,EQ, ED, ET, EPS/30. ,2.75,0.2,0.7,2.5,1 .E-6/ 

DATA TP/33. 34E-6/ 

DATA THETAO,DELTHET,THETAF/0.,.5,5./ 

DATA VO/37.5/ 

DATA NIT ,N1 ,N2 ,EFF/50, 22. , 1 1 . , .94/ 

DATA NTERMS,MIT,LRTL ,NRL,DPRAM,PRAMF/20,5,0, 10,4. ,40./ 
DATA LIST, LPEAK,LFE,NK,LFREU/1, 0,0, 60,0/ 

DATA LPARAM, LCOMP ,LPC,LSA ,LRLPC ,LCFR, LPEAK/ 0,0, 0,0, 0,0,0/ 
DATA RPRAM/ 2HC 1 , 2HC2 , 2HR3 , 2HR4 , 2HR5, 2HKL , 2HN2 , 2HL0 , 

X 2HC0,2HEI/ 

DATA RLSWIT, LRL/600.,0./ 

DAI A TF ,LDU7Y ,TFCON/ 1 .51 4365E-5, 1 ,3.E-5/ 

DATA 0LDTIME,LTK,LRESP,TSWIT,TFINAL/0.,1,O,2.E-3,13.9E-3/ 
DATA MTR/t / 

NAMELIST /PARAM/KO ,L0,C0 ,RS,RL,R1 ,R2,R3,R4,K5,C1 ,C2, 

XN1 ,N2,EFF , EI,ER,EQ,ED,E T ,TF", TF.VO 
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00550 

00560 

00570 

00580 

00590 

00600 

00610 

00620 


00630 

00660 

00650 

00660 

00670 

00680 

00690 

00700 

00710 

00720 

00730 

00760 

00750 

00760 

00770 

00780 

00790 

00800 

00810 

00820 

00830 

00860 

00850 

00860 

00870 

00880 

00890 

00V00 

00910 

00920 

00930 

00960 

00950 

00960 

00970 

00980 

00990 

01000 

01010 

01020 


NAMELISl/COMP/EPS,Nn,XMU,NTEf<MS,HiT 
NAMELIST /CQNTRL/LPARAM,LCOMP,LPC,LSA,LR TL ,LKLPC ,LP’NEU 
X,LCPR,LPEAK,LOAD,LDUTY,LRESP 
NAMELIST /RLPARAM/NRL ,DPRAM ,PRAMP" 
NAMELIST/FRPARAN/THETAO,DELTMET,THETAF 
NAMEL1ST/TAPARAM/EI ,£1SUH,NK 
NAMELIST/RPARAM/RL,RLSUIT,NK 
NAMELIST/TRPARAM/OLDTINE,TSUIT,TF INAL 
REWIND 3 
REU1ND 6 
REWIND 7 

C URIIE16, 99 ) 

9V FORMAT ( 1X,*PR0GRAN FUNCTION*, 1 3X,* CONTROL PARAMETER ( 1 -YES O-NO) 
X /♦ CHANGE PARAM*,18X,*LPARAM* 

X /* CHANGE COMP*, 1 9X, *LCONP* 

X /* LIS! PARAH, CONP*, 14X,*LPC* 

X /♦ STAB1LI TV ANALYSIS*, 1 2X r *LSA* 

X /♦ ROOT LOCUS ANALYSIS'*, 1 1X,*LRTL* 

X /* LIST PARAMETER C0DE*,6X,*LRLPC* 

X /* AUDIO ANALYSIS* , 1 6X,*LFREG* 

X /♦ CHANGE FKLQ RANGE* ,8X ,*LCFR* 

X /♦ TRANSIENT ANALYSIS*, 12X,*LPEAK* 

X /* TRANSIENT LOAD *,12X,*L0AD* 

X /* DUTY CYCLE SCHEME * , 1 2X ,*LDU1Y* 

X /* TRANSITION ALGORITHM * ,6X,*LRESP*7 > 

600 CONTINUE 

WRITE (6, 601 ) 

401 FORMAT ( IX, *ENTER N TO DISCONTINUE PAS, OTHERWISE Y*) 

KEAD(5,402> XI 

402 FORMAT (A1 ) 

IF(XI.EO.IHN) STOP 
WRITE 16,403) 

403 FORMAT! IX,* INPU T F'AS CONTROL PARAMETERS*) 

REAIM5,C0NTRL> 

C URITE(6,C0NTRL) 

lFaDUTY.EO.1) GO TO 420 
WRITEU,421) 

421 FORNAT (/ 1X,*C0NSTANT TF DUTY CYCLE SCHEME*/) 

GO TO 422 

420 CONTINUE 

WRITE <6 f 423) 

423 FORMA T (/ 1 X,*CONSTANT TP CUTY CYCLE SCHEME*/) 

422 CONTINUE 
IF(LF'ARAM.EQ.O) GO TO 404 
REA1M5, PARAN) 

404 IF (LCOMP.EU.O) GU TO 40b 
REAMS, COMP) 

405 1FUPC.EQ.0) GO TO 406 
WRITE(6,PARAM) 

WRI TE (6 ,COMP) 


01040 

GO 10 5 


01050 

407 IF!LRTL.EO.O) 80 !U 408 


01060 

IF <LRLI>C .EQ .0) GO 10 409 


01070 

URITE (6 ,460 ) 


01080 

460 FORMAT! IX,* CODE PARAMETER* 


01090 

X /* 1* Cl*/* 2= C2*/* 3* 

R3*/ 

01100 

X * 4= R4*/* 5« R5*/* 6= 

RL*/ 

oiiio 

X * 7* N2*/* 8* LO*/* 9® 

CO*/ 

01120 

X * 10- El*/) 


01130 

409 URITE<6,410) 


01140 

410 FORMAT! IX,. *INPUT ROOT LOCUS PARAMETERS*) 


01150 

READ(5,RLPARAN) 


01160 

UR1 TE(6,RLPARAN) 


01170 

GO TO 5 


01180 

408 IF(LFREU.EU.Q) GO TO 411 


01190 

IF(LCFR.EQ.O) GO TO 5 


01200 

WRITE! 6, 41 3) 


01210 

413 FORMAT <1X,*INPUT FREQUENCY RANGE PARAMETERS*) 

01220 

REA!H5,FRPARAH> 


01230 

UR1TE!6,FRPARAM1 


01240 

GO TO 5 


01250 

411 IF (IPEAK.EG.O) GO TO 415 


01260 

WRITE <6 ,41 4 ) 


01270 

414 F0RMAT!1X,*INPUT TRANSIENT ANALYSIS PARAMETERS*) 

01280 

READ!5,TAPARAM) 


01290 

URITET6,TAPARAM> 


01300 

GO TO 5 


01310 

415 IF (LOAD.EQ .0 ) GO TO 424 


01320 

URITE 16, 41 6) 


01330 

416 FORMAT! IX, *INPUT LOAD CHANGE PARAMETERS*) 


01340 

READ(5,RPARAM) 


01350 

URITE!6,RPARAM) 


01360 

424 CONTINUE 


01370 

If (LRESP.EQ .0 ) GO TO 400 


01380 

URITE<6,425) 


01390 

425 FORMAT! IX, *INPUT TRANSITION RESPONSE PARAMETERS*: 

01400 

READ(5,TRPARAM) 


01410 

URITE(6,TRPARAM) 


01420 

5 CONTINUE 


01430 

IF (LRTL.EO.O)GO TO 4 


01440 

URITE (6,21 2)RPRAM(NRL) ,PRAN(NRL) 


01450 

212 FORMAT ( //*ROOT LOCUS PARAMETER *,A2,* = * 

,G12.4) 

01460 

4 CONTINUE 


01470 

QLDEl=E l 


01480 

OLDRL=RL 


01490 

KL=RL/(RS+RL ) 


01500 

KD=R2/ < HI +K2) 


01510 

DO 11 1=1,4 


01520 

DO 11 J=1,4 


01530 

61(1 , J )=62 ( I , J) S G3 ( I , J) =0. 


01540 

11 F1(I,J)=F2(I,J)=F3U,J)=0. 
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01550 
01560 
01570 
01580 
O15V0 
01600 
01610 
01620 
01630 
01640 
01650 
01660 
01670 
01680 
01 690 
01700 
01710 
01720 
01730 
01740 
01750 C 
01760 C 
01770 C 
01780 C 
01790 C 
01800 C 
01810 C 
01820 C 
01830 C 
01840 C 
01850 C 
01860 C 
01870 
01880 
01890 
01900 
01910 
01920 
01930 
01940 
01950 
01960 
01970 
01980 
01990 
02000 
02010 
02020 
02030 
02040 
02050 


W=N2/N1 

19 PM 1,1 )=F2(1,1)=P3<1,l>*-1./<C0*<RUR8)) 
f 1 (2,2)=-R0/L0 

FM3,1)=F2(3,1)*F3<3,1 )*RL/(C2»R5* (RS+Rl > > 
F1<3,3)=F2<3,3)=F3<3,3)*-1./<C2*RS) 

F1<4,n = <-R2/<C1*R3*(RHR2)>-1./<C1*R5>)*Rt/<KS+RU 
F3(4,1)=F1<4,1) 

FI <4,2)=N*R0/(C1*R4) 
F1(4,3)=F2<4,3)*F3<4,3)*1./<CMR5> 
G1(2,1)=G2(2,1)=1,/LO 
G1 <2,3)=G2<2,4)=-1./10 
G 1 < 4 f 1 )=G2< 4, 1 )=-N/ (C1*R4 ) 

GM4,2)-G2<4,2)=G3(4,2) = 1./<C1*R3> 

G1 (4,3)=G2(4,4)=N/(C1*R4) 

F2<1,2)*RL/<C0*<RS+RL)) 

F2(2,1 M-RL/dOMRS+RL)) 

F'’(2,2) = -RO/LO-RS*RL/(LO*(RS+RL)) 

F2 ( 3, 2 ) =F2( 3, 1 )6RS 

F2<4, 1 ) -F 1 <4,1 )TN*RL/(GMR4*(RS+RL)) 

F2(4,2)=F2<4, 1 )*KSFF1<4,2) 

UR1TE<6,93) < (FI (I ,J), J=1 ,4) ,1=1 ,4) 

MRI TE(6, 98 ) ( (G1 ( 1 , J ) , J= 1 ,4) ,1=1 ,4 ) 
WRITE<6,V7)<<F2<I,J).J=1,4>,I=i,4) 
URITE(6,96)((G2(I,J),J=1,4),I=1,4) 
URITE(6,95)((F3(1,J),J=1,4),I=1,4) 

URITE(6,94 ) ( (G3( I, J) , J=1 ,4 ) , 1=1 ,4) 

93 FORMAT ( /*F 1 =* ,/4( 4G 1 5 . 4 / )/ ) 

98 F0RMAT</f*G1=*,/4<4G15.4/)/) 

97 FORMAT ( /*F 2=4, /4(4G1 5.4/)/ ) 

96 FORMAT (/4G2=4,/4 (4G1 5.4/ )/ ) 

95 FORMAT (/*F3=*,/4< 4015. 4/)/) 

94 FORMA r ( /*G3=*/4 (4G1 5,4/ )/ ) 

0(1,1 )=EI 

0(2,1 )=ER 
11(3 , 1 )=EQ 
U<4,1 MED 
H(2)=H(3)=H<4)=0. 

H< 1 )=KL 

P0=M0**2/RL 

LP=LO*PO 

OA=EFF ! *EI* (EI-EQ )*(VO+ED-EQ) 

QB=~2.4Lp4(U0+ED-EI ) 

OC=QB*TF 
7 CONTINUE 

IF(LDUTY.EU.I) GO TO 41 
UD=SQRT(QB**2-4.*QA*QC) 

TGN=(GD-0B)/(2.4(IA) 

TF1 =TON ! MEI-EQ)/< VO+ED-EI ) 

TF2=TF-TF 1 
TP=TONMF 
GO TO 42 
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02060 
02070 
02080 
O20V0 
02100 
02110 
02120 
02130 
02140 
02130 
02160 
02170 
02180 
021 90 
02200 
02210 
02220 
02230 
02240 
02250 
02260 
02270 C 
02280 
02290 
02300 
02310 
02320 
02330 
02340 
02350 
02360 
02370 
02380 
023 VO 
02400 
02410 
02420 
02430 
02440 
02450 
02460 
02470 
02480 
02490 
02500 
02510 
02520 
02530 
02540 
02550 
02560 


41 CONTINUE 
ttE=H1D*TP/BA 
TON-SURHOE ) 

TF1 3 TON*(EI-£U)/< VO+ED-EI ) 

TF2=TP-T0N-TF1 

42 CONTINUE 
TEPS-.01 *TP 
L)ELTON=XNU*TON 

IF( TF2.GE. TEPS ) GO TO 6 
MQDE*1 

IF(LDUTr.EO.I) 60 10 43 
T0N a TF-MU04ED-EI)7(EI-E0) 

TF1 =TF 
TP a TON*TF 1 
GO TO 44 

43 TQN=TP* <UO*ED-EI )/I VO+ED-EO ) 

TF1 =TP-TON 

44 CONTINUE 
0 rON= TON 
OTFI-Tf 1 

CALL STATE2(TQN,TF1) 

WRI TE(6,27) TON, TF1 ,TP2,X,Y r Z 

27 F0RHAT<*N0DE=1*/*APPR0X1NATE STEADY STATE*/*T0N=*,G15.4, 
X ♦ TFl=*,G15.4,* TF2 5 *, G1 5.4/*X** f 4G15.4/*Y»*,4U15.4/ 

X *Z=*,4G15.4) 

DELTQN s XNU*TON 

1T=0 

CALL XNAT2 < TON ,XC1 ) 

18 CALL XNAT2(TON+DELTON,XC2) 

DNATCH=< XC2-XC 1 ) /DEL T 014 
TON-T0N-XC1/DMATCH 
CALL XHAT2( TON, XC1 ) 
ir=IT+1 

IF(ABS(XC1 ).LE.EPS) GO TO 31 
IFUT.LT.NIT) GO TO 18 
TON=OTON 
TF1=0TF1 

CALL STATE2< TON, TF 1 ) 

0R1 TE ( 6 ,34 ) 

34 FORNAT(/*EXCEED MAX. ITERATION FOR THE EXACT STATE*/ 
/♦APPROXIMATE STATE IS CALCULATED*/) 

31 CONTINUE 

IFUDUTY.EQ.1 ) GO TO 45 
TF1 =TF 
TP S T0N*TF1 
GO TO 46 

45 CONTINUE 
TF1=TP-T0N 

46 CONTINUE 

CALL PMIH2UF1 ,F2 , P«12 ) 

CALL DNAT2CIH ,F2,G2,PH12,D2) 
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025/0 

02580 

02590 

02000 

020)0 

02020 

02030 

02000 

02050 

02000 

02070 

02080 

02090 

02/00 

02710 

02720 

02730 

02/40 

02750 

02700 

02770 

02780 

02790 

02800 

02810 

02820 

02830 

02840 

02850 


02860 

02870 

02880 

02890 

02900 

02910 

02920 

02930 

02940 

02950 

02960 

02970 

02980 

02990 

03000 

03010 

03020 

03030 

03040 


EKR=X(4,1>-PMI2<4,1)*Y(1,1)-PHm4,2>*Y<2,1)- 
X P«I2<4,3)*Y<3 f 1)-V<4,1>- 
X D2 ( 4, 1 ) *U ( 1 , 1 )-D2 <4,2 )4U<2, 1 )-D2<4,4 )*U< 4, 1 ) 

DU 32 1 = 1,4 

32 R1PX <1,1 )*X< 1, 1 )~Y (1 , 1 ) 

CALL STATE2(T0N, TF1 ) 

TPC 1= 100. ♦ TON/TP 
1 F < LRTL . EQ . 2 ) 60 TO 36 
IF<MTR.EU.2) 60 TO 36 

URITEU,35> EI,RL,LDUTY,MOOE,TON,TF1,TP,TPCT,X,Y,RIPX, 

X ERR,IT,TEPS 

35 FORMAT < / * E I -*,012.4,* RL=*,612.4,* LDUTY**,I3, 

X ♦ MODE=*, 13/* TON =4,612.4,* IF 1 =♦ , 61 2 . 4 , * TP=6,612.4, 

X * TPCT=*,612.4/*X =*,4612.4/4? =*,4612.4/ 

X *RIPX=4, 401 2. 4/4ERR =4,612.4,* IT=*,I3,* TEPS=*, 812,4/ ) 

36 CONTINUE 
GO 10 56 

6 CONTINUE 
P fON= TON 
PTF1*TF1 
MODE =2 

CALL STA TE2O0N, TM ) 

URnE(6,17)T0N,TF1,TF2,X,Y,Z 

17 FORMAT < *M0DE=2*/*APPRUX IKATE STEAD? STATE*/4TUN=*,G1 5. 4, 

X* TF 1 =*, 015.4,4 TF2=4,G15.4/ 

X*X=4, 4G1 5 . 4/*?=* ,401 5. 4/*Z=* ,461 5. 4/) 

ir=o 

CALL SHAT 2 (TOM, I FI ,SC1 ,BC1 ) 

9 CALL SMAT2( TON+DELTON,TF1 ,SC2,BC1 ) 

SERR=SC2-SC1 
ABSERR=ABS (SERR) 

IF(ABSERR.LT.1 .E-6*EPS)G0 TO 10 
DSMAT2= < SC2-SC1 )/ DEL TON 
T0N=T0N-SC1 /DSMAT2 
CALL SNAT2 ( T0N,TK1 ,SC1 ,BC1 ) 

IT=IT*1 

IF < ABS ( SCI ) .LE .EPS ) GO TO 10 
IF ( IT .LT.MI T) GO TO 9 
TF1=PTF1 
TON=PTON 

CALL SMA T2(T0N,TF"1 ,SC1 ,BC1 ) 

10 CONTINUE 

IF (LDUTY.EO. 1 ) GO fU 47 
TF2=TF- TF1 
TP= TON+TF 
GO TO 48 

47 CONTINUE 
TF2=TP-TF1 -TON 

48 CONTINUE 

13 DO 12 1-1,3 

12 RIPX ( 1 , 1 ) = X( 1, 1 ) "Y (1,1) 
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03050 
03060 
03070 
03080 
03090 
03100 
03)10 
03120 
03130 
03140 
031 SO 
03160 
03170 
03180 
03190 
03200 
03210 
03220 
03230 
03240 
03250 
03260 
03270 
03280 
03290 
03300 
03310 
03320 
03330 
03340 
03350 
03360 
03370 
03380 
03390 
03400 
03410 
03420 
03430 
03440 
03450 
03460 
03470 
03480 
03490 
03500 
03510 
03520 
03530 
03540 
03550 


call »qm,tfi) 

TPCf=100.*TON/TP 
C IF(LRTL.£Q.2) CO TO 56 
IF1HTR.EQ.2) GO, TO 36 

WRITE<6,55) EI,RL , LOUT Y, NODE, TON, TF1 ,TF2,TP,X, Y,Z, 

X R IPX, SCI ,IT,TPCT,BC1 , T EPS , SERK 

55 FORMAT </*£I =*,012. 4,* RL=*,G12.4,* LDUTY=*,I3, 

X ♦ MODE=* f I3,/*T0N =*,012.4,* TF1=*,G12.4,* IF2»*,G12.4, 

X * Tp=*,G1 2.4/*X »*,4612.4/*Y «*,4G12.4/*2 =*, 

X 4G12.4/*R1PX=*,4G12.4/*SC1 =*,012.4,* IT»*,I3, 

X * TPCT=*,G12.4,* BC»=*,G12.4/*TEPS“*,612.4,* SERR**,G1 2.4/) 

56 CONTINUE 

CALL PSIH2(P'SI, N)N,TF1,X,U) 

CALL RMCPY <PSY ,PSI ,4,4) 

1TBL < 1 ) = 4 
ITBL<3)-0 

CALL ORAL <PSY,R, 4,H, V, IN T, IVD, IT8L ) 

C IF1LRTL.NE.2) GO TO 67 
C WRITE (6,68) NODE, TPCT 
C 67 CONTINUE 

C 68 FORMAT <*MODE =*,I2,* DUTY CYCLE =*,F5.2/) 

C IF (LRTL.EQ.2) GO TO 72 

WRITE (6, 70) < <PSI< I , J) , J~1 ,4), 1 = 1, 4) 

70 FORMAT ( *PSI=*, /4 <4Ui 5. 4/ ) ) 

IF(MTR.E0.2) GO TO 76 
72 WRITE (6, 74) ( (R< I, J) , J=1 ,2) ,1=1 ,4) 

74 FORMAT <5X,4HREAL, 1 1 X ,4H1MAG, 1 1X,4HREAL, 1 1 X,4HIMAG, 

X /2<4G15.4/) ) 

76 CONTINUE 

IFILRESP.EO.O ) GO TO 550 
CALL PHIM2< T0N,F1 ,PHI1) 

CALL DMAT2<T0N,F1 ,G1,PHI1 ,D1) 

CALL PHIH2(TF1,F2,PHI2) 

CALL DM AT2 < IF 1 ,F2,G2,PHI2,D2) 

IF (MODE.EO.1 ) GO TO 589 
CALL PHIM2 ( TF2 ,F3, PHI3 ) 

CALL DMAT2T TF2,F3,G3,PHI3,D3) 

589 CONTINUE 

TINE=OLDTINE 
IF (LTR.EQ.2) GO TO 501 
IF TMODE.EQ. 1 ) GO TO 500 
CALL RMCPY < 2TR ,2,4,1) 

V0TR=KL*ZTR<1,1 )-V0 
C UR I TE <6,599) TIME ,ZTR , VQTR 
WRITE<7,599)TIME,ZTK,U0TR 
599 FORMAT ( 6G 1 2 .4 ) 

GO TO 501 
500 CONTINUE 

CALL RMCPY < YTR, Y ,4 , 1 ) 

VOTR=KL*Y TR< 1 ,1 )+RS*KL*Y1R<2, 1 )-V0 
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03530 

(' 

UKmu,b99m«MfMorR 

03570 


WR1 it (7,599 )T ME, YTK,V0TR 

03580 

501 

CONTINUE 

03590 


riNt'-TiNmoN 

03300 


IFdiOOE.EU. 1 ) GO TO 502 

03310 


CALL STS2(X TR,PHI3,2TR,I)3,U) 

03320 


60 TO 503 

03330 

502 

CONTINUE 

03340 


CALL STS2< XTR,PHI2 , YTR ,I)2,U) 

03350 

503 

CONTINUE 

03330 


VOTR*KL*XIR< 1 f 1 )-M0 

03370 

C 

UNITE (6, 599) TIHE,X1R,V0TR 

03380 


WRITE(?,599)TME,XTR,V0TR 

03390 


T INE= TINE+TF 1 

03700 


CALL STS2(YTR,PHI 1 ,XTN,D1 ,U) 

03710 


VQTR=KL*YTR< 1 , 1 )4RS*KL*YTR(2, 1 )~V0 

03720 

C 

WRITE(3,599)TINE ,YTR,VOTR 

03730 


WRITE (7,599 )TINE, YTR, VOIR 

03740 


IFMUDE.EQ.I) GO TO 504 

03750 


TIHE=rii1E4TF2 

03730 


CALL STS2(ZTR,PH12,YTR,D2,U) 

03770 


V0TR a KL*2TR( 1 , 1 )-V0 

03780 

C 

MRnE(6,599)TIHE,ZTR,V0TR 

03790 


WRl TE <7 ,599 )T INE,21R, VO fR 

03800 

504 

CONTINUE 

03810 


IF (TINE.GT.TFINAL) GO TO 505 

03820 


if < T zriE .l r . tsui r ) go ro 501 

03830 


IF(LTR.EQ.2) GO TO 501 

03840 


IF(N0DE.EG.2) GO TO 506 

03850 


CALL RNCI'Y(ZTR, YTR,4, 1 ) 

03860 

503 

CON f INUE 

03070 


U<1 ,1 >=E1SW1T 

03880 


EI=E1SWIT 

03890 


old time= riYie 

03900 


LTR=2 

03910 


GO ro ? 

03920 

505 

CONTINUE 

03930 


0LDTI(1E=0. 

03940 


LTR-1 

03950 


HTR*2 

039/0 


LRESP=0 

03 0 


GO ro 7 

03980 

550 

CONTINUE 

03990 


NTR=t 

04000 


IF(LFREQ.EG.O) GO (0 150 

04010 


CALL GANN2(GAH, TON, fFI ,X,U) 

04020 

> 

WRITE (6, 75) <GAN (1,1), 1 = 1, 4) 

04030 

75 

FORMAT (/*GAN=*/4(G1 5.4/) ) 

04040 

39 

CALL FRE02 (PSI ,GAH ,H,THETAO,THETAF ,DELTHE( ,E1 ,90) 

04050 


REAU(5,FRPARAN) 

04030 


IF ( THE i AT . EU .0. )00 TO 14V 
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040/0 yRlTEU^KPARAN) 

04080 (iO TO 6? 

04090 149 CONTINUE 

04100 LFREQ s O 

04110 150 CONTINUE 

04120 lFaFE.EQ.11 GO TO MO 

04130 IF aPEAK .EG. 0) GO 10 200 

04140 00 152 1*1 ,4 

04150 152 XFPU,1)«XU,1> 

04160 EI=E1SUIT 

041/0 U( 1 , 1 )=E1 

04180 LFE=1 

04190 URITEU,189) 

04200 189 FORMAT < 1 X f ^SE T UP El STEP INPUT*) 

04210 GO TO 7 

04220 160 CALL 0VSH2<PSI,XFP,NK ) 

04230 200 CONTINUE 

04240 LPEAK=LFE=0 

04250 EI S 0LDE1 

04260 U<1,1)=EI 

042/0 IF(LRL.EO.I) GO TO Ml 

04280 IFaOAD.EQ.O) GO TO 201 

04290 RL=RLSUl 1 

04300 LRL=1 

04310 DO 153 1 = 1 , 4 

04320 153 XFP< 1, 1 >=X < T f 1 ) 

04330 URITEH, 188) 

04340 188 FORMAT ( 1 X » •’♦SET UP RL LOAD CHANGE*) 

04350 GO TO 4 

04360 HI CALL 0VSH2<PSI,XFP,NK) 

043/0 201 CONTINUE 

04380 LOAD=LRL s Q 

04390 RL=OLDRL 

04400 IF (LRTL.EO .0 ) GO TO 300 

04410 PRAN1NRL )=PRAM<NRLHDPRAM 

04420 IF(PRAN(NRL) .GT.PRAHF) GO TO 300 

04430 LRTL=2 

04440 GO TO 5 

04450 300 CONTINUE 

04460 GO TO 400 

044/0 END 

04480 *********************************** ******************* 

04490 SUBROUTINE 0VSH21PS1 , XFP,NK) 

04500 DIMENSION PSI (4 ,4 ) ,XFP<4,1 ) ,DELXP<4, 1 ) ,TUEC<4, 1 ) 

04510 C0NNON/STATE/X<4,1),Y(4,1),2<4,1),U<4,1) 

04520 C0NM0N/EX1 PAR/NIT, ErS,NTERHS, MIT, TP, TF,LDUTY,Ef, NODE, XNU 

04530 DATA NS, CO/. 01 3, 6. £-4/ 

04540 G=RS*CO/TP 

04550 DO 10 1=1,4 

04560 10 DELXP< 1 ,1 )=Xf P( I, 1 )~X<1 , 1 ) 

045/0 DELVO=DELXP <1,1 )+G*DELXP (1,1) 
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04580 

04590 

04600 

04610 

04620 

04630 

04640 

04650 

04660 

04670 

04680 

04690 

04700 

04710 

04720 

04730 

04740 

04750 

04760 

04770 

04780 

04790 

04800 

04810 

04820 

04830 

04840 

04850 

04860 

04870 

04880 

04890 

04900 

04910 

04920 

04930 

04940 

04950 

04960 

04970 

04980 

04990 

05000 

C3v10 

05020 

05030 

05040 

05050 

05060 

05070 

05080 


OU 30 NN“-1,NK 

WRITE (6, 12) NN,I)ELXP,DEL90 
WRITE <3, 121 NN,DELXP,0EIU0 
12 F0RNAMI3,5U12.3> 

CALL RNNUL (TVEC ,PSI ,DELXP ,4 ,4, 1 ) 

DELV0*TUEC(1 , 1 )4G4( IVEGd , 1 )-DELXP< 1 , 1 ) ) 

1)0 (4 1*1,4 

14 DEL XP ( 1 , 1 ) = fVEC(1 ,1 ) 

30 CONTINUE 
RETURN 
END 

FUNCTION ZETA2(T,X,U) 

DIMENSION PH1 1 (4,4) ,01 (4,4) ,X(4,1 ) U<4,1> 
C0HHUN/FARAN/H<4,4),F2<4,4),F3<4,4),G1<4,4>, 

XG2(4,4) ,03(4,4) 

CONNON/EX IPAK/NIT , EPS, NT ERAS, NIT , TP, TF,LDUTY,ET,NUDE,XNU 
CALL PHIH2( r,F 1 ,PHI 1 ) 

CALL l)NAT2< T ,M ,G1,PHI1 ,01) 

ZETA2S“ET4PHI1<4,1)*X<1,1 )4pHI1 <4, 2)6X12,1)4 
XPHI 114, 3)6X13, 1)4X14, t)4|) 114, 1)*U 11, 1)4 
XI) 1 (4,2)60(2,1 )*Bi (4 ,3) 4U< 3 , 1 ) 

RETURN 

END 

SUBROUTINE FREQ21PSI ,bVEC,H,TMETAO,THETAF,DELTHE! ,EI,UO) 
DIMENSION PS I ( 4,4) ,DVEC(4, 1 ) , H < 4 ) 

DIMENSION A(4,4),AINV(4,4),B(4,4),U(4,4),V(4,4),IEf1P1(4,4) 
DIMENSION TEMP244 , 4 ) , TVEC1 (4,1) , TVEC2( 4, 1 ) 

COHNON/EXTPAR/NI T , EPS, N TERNS, HI T,TP, TF,L DUTY, ET, NODE, XNU 
DE6RAD=180. 73. 1415927 
RAUDEO-1. /DEGRAD 
THETA=THETAO-DELTHET 
UO 2 1=1,4 
DU 2 J=1 ,4 
2 B ( I , J ) =0 . 

C WRIT E(4, 59 )EI, NODE 

59 FURNAT ( 4AUDI0SUSCEP I1BILITY6,* tI-<»,F6.2,6 H0DE=4,12) 

WRITE ( 6 , 1 ) El 
1 F0RNAT(//6EI=4,£12.6/, 

X 6 THETA FREQ (HZ) DBEL*,5X,6G6,1 1X,6REG6,10X,6IHG*, 

X 6X , *PHASE* ) 

5 CONTINUE 

THETAdHETA+DELTHET 
THET=RAUD£G* THETA 
PREs THE 1/(6.20318536 TP) 

RX=COS(THET) 

RY*SIN( THET / 

DU 12 1=1,4 
00 10 J= 1 , 4 
10 A(I,J)=-Pbl li , J) 
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osoy o 
os too 

05110 

05120 

05130 

05140 

05150 

05 MO 

05120 

05180 

05190 

05200 

05210 

05220 

05230 

05240 

05250 

05240 

05220 

05280 

05290 

05300 

053(0 

05320 

05330 

05340 

05350 

05340 

05320 

05380 

05390 

05400 

05410 

05420 

05430 

05440 

05450 

05460 

05420 

05480 

05490 

05500 

05510 

05520 4 

05530 

05540 

05550 

05560 

05520 

05580 

05590 


12 


14 


16 

25 

30 


34 

SO 


55 


58 

60 

100 


B< i , I ) - R Y 

IF(ABS(RY).LT.1.E-10) 60 TO 25 

RY IV«? ./RV 

CALL RMHUL(TENP1,A,A,4,4,4> 

CALL RMSCLR<TENP2,ftYIV, TEMPI ,4.4) 
80 (4 1=1,4 

1EMP21 1, 1)=TENP2(I , I )4RY 
CALL R«IRV(V,TEMP2,4) 

CALL RMMUL (U,A,U,4,4,4) 

80 14 1*1,4 
80 16 J=) ,4 
UU,J)=RYIV#U(I,J) 

V<1, J)-V(1,J) 

00 TO 50 

CALL RNINVI AINV,A,4) 

80 30 1=1,4 
80 30 J=1 ,4 

TEMPI ( I, J)=AINO( I , J)4pYn>42 
CALL RMA88(TEMP2,A,TEHP1,4,4) 

CALL RMINV(U,TEMP2,4) 

CALL RMNUL(V,AINV,U,4,4,4) 

80 34 1*1,4 
80 34 J=1 ,4 
V<1,J)=-RY*V(1,J) 

CONTINUE 

CALL RNHULCfVECI ,U,8VE0,4,4, 1 ) 

CALL RNNUL(TVEC2,V,80EC,4,4, 1 ) 
GRE=GIN=0, 


80 55 1 = 1,4 

GRE=GRE+H(I)*TVEC1(I,1 ) 

61M=6IM+H<I ) * TVEC2< T, 1 ) 
G=SORf(GRE*:*2+GIM!**2) 

8B£L=20.'*AL0G| 0(G'4E1/V0 ) 
PHASE=BEGRA8*ATAN2(GIH,GRE ) 

UNITE (4, 60) THETA, FRE,8BEL,G, ORE, GIM, PHASE 
URITE(4,58)FKE,DBEL, PHASE 
FORMAT (G15. 4, 2F 12.4 ) 


FORMAN F6. 2, E 1 2. 4, F9. 2, 3E 12. 4, F9. 2) 

IFITHETA.LT. IHETAF-0.5*BELTHET) GO TO 5 

CONTINUE 

RETURN 

ENO 


SUBROUTINE PHIM21 T,F,PH.I) 

DIMENSION PI (4, 4) ,P (4 ,4 ) ,PHI (4,4) ,PA(4,4 ) ,P2(4 ,4 ) »l : (4,4) 

c*LL 0 R«scL r R(p^rlFt^i) , ' ERMS ’" IT ’ 1P,r, '’ Ll ' Urr ’ E, ’" a “ E ’’ x ' ,u 

CALL RNCPY(PHX,V!,4,4) 

80 160 1=1,4 
160 PHI ( 1 , 1 )=f"l ( ,1 , i ) + 1 . 
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05600 CALL RNCPY(P,P1,4,4) 

05610 DO 131 M«1 ,NTERMS 

05620 M«M*1 

05630 A=1./N 

05640 CALL RMSCL«(PA,A,P1 ,4,4) 

05650 CALL RHHUL(P2,PA,P,4,4,4) 

05660 CALL RMCPY (P ,F2,4,4) 

05670 CALL RMADD(PHI,PHI,P,4,4> 

05680 DO 132 1=1 ,4 

05690 DO 132 J=1 t 4 

05700 132 ANORN=ANORN+AB8(P<I,J)) 

05710 IF (ARORR.LT .EPS) 60 TO 133 

05720 131 CONTINUE 

05730 133 RETURN 

05740 END 

05750 ****** 

05760 SUBROUTINE DHAT2< T ,F , 6, PHI ,D ) 

05770 DIHENSIQN IENP1 (4,4) ,TENP2<4,4> ,«0(4,4) ,W2(4,4) r UN(4,4) , 

05780 XW<4,4),F<4,4>,G<4,4),B<4,4),PHI(4,4),D<4,4) 

05790 CONNDN/EXTPAR/NIT,EPS,NTEKMS,NIT,rP,TF,LDUTY,ET,NODE,XMU 

05800 DT -T/MIT 

05810 DTK=T/NIT 

05820 DTI =D 172 

05830 DO 136 1=1,4 

05840 DO 136 J=1,4 

05850 (36 U0(I,J)=O. 

05860 DO 137 1=1,4 

05870 137 U0< I f I > —WO < 1,1) +DT 1 

05880 CALL PHIH2("T,F,U2) 

05690 CALL RNSCLR(UN,DT1 ,U2,4,4) 

05900 CALL RNADD(W,U0,UN,4,4) 

05910 K=HI M 

05920 DO 141 L=1 ,K 

05930 CALL PHIM2("DT,F, TEMPI ) 

05940 CALL RMSCL>';(TENP2, DTK, TEMPI ,4,4) 

05950 CALL RMADDIU,U,TEHP2,4,4> 

05960 DT=DI+DTK 

03v 70 HI CONTINUE 

05980 CALL RMMUL(B,PHI ,U,4,4,4) 

C5990 CALL RMMUL (D,B , G, 4 ,4 ,4) 

06000 RETURN 

06010 END , , 

06020 ***t******u*************'*************************' ¥ **** 

06030 SUBROUTINE S[ATE2CI0N,TF1 ) 

06040 DIMENSION PHI'S <4 ,4 ) ,PHI2(4,4) ,PHI3(4,4) ,D1 <4,4 ,D^(4,4) , 

06050 XD3 (4,4), TEMP 1(4, 4) , TEMP2(4 ,4),PMI(4,4),V(4,4),VU<4,1 

06060 DIMENSION U( 4, 1 ) , fVI (4, 1 ) ,TV2 (4 ,1 ) 

06070 COMMON/PARAM/ FI (4,4),F2(4,4),F3(4,4) ,61 <4, 4), 6* (4, 4), 

06090 COMMUN/EX ! PAR/N1I ,EP8,NTERMS,HIT, IP, IT ,LDU!Y,tl .HL)DE,XMU 

06100 COMMUN/S I A 1 E/XH . 1 l , V ( 4 , 1 ) , L 1 4 , 1 ) ,U (4 ,1 ) 
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06110 
06120 
06130 
06140 
06150 
06160 
06170 
06180 
06190 
06200 
06210 
06220 
06230 
06240 
06250 
06260 
06270 
06280 
06290 
06300 
06310 
06320 
06330 
06340 
06350 
06360 
06370 
06380 
06390 
06400 
06410 
06420 
06430 
06440 
06450 
06460 
06470 
06480 
06490 
06500 
065 1C 
061)20 
06530 C 
06540 C 
06550 C 
06560 C 
06570 
06580 C 
06590 C 

06609 

06610 C 


COLL PHifl2< TQN,F1 f PH1 1 ) 

CALL DMA I 2( TQN,F 1 ,G 1 , PH1 1 ,01 ) 

CALL PHIA2<TF1,F2,PHI2) 

CALL DAAT2< TF1 ,F2,G2,PHI2,D2) 

CALL RAHUL (PHI ,PHI2,PHJU ,4,4,4 ) 

CALL RAHUL (TEMPI , PR 12, 01 ,4,4,4) 

CALL RAADD(V, TEMPI ,02,4,4) 

IF(AODE.EO.I) GO TO 15 
IF(LDUTY.£Q.t ) GO TO 31 
TF2*TF-TF1 
GO TO 32 

31 CONTINUE 
TF2*TP-T0N-TF1 

32 CONTINUE 

CALL PHIA2(TF2,F3,PHI3) 

CALL I)AAT2<TF2,F3,G3,PHI3,03) 

CALL RAAUl(TEAP2,PHI3 1 ,PHI,4,4,4) 

CALL RACPY<PHI,TEAP2,4,4) 

CALL RAlTULI TEMPI ,PHI3 ,V,4 ,4 ,4) 

CALL RMAD0(V,TEMP1,D3,4,4) 

15 CONTINUE 

CALL RAMUL(VU,V,U,4,4,1) 

HER “ ( 1 .-PHI < 1 , J ) )*( 1 .-PHI (2,2) ) - PHI( 1 ,2)*PH’ <2,1 ) 

DET a DEN * <1. - PHI < 3, 3 ) ) 

X ( 1 , 1 ) = ( ( 1 . -PH 1(2,2)) *MU (1,1) + PHI< 1 ,2)*VU(2, 1 ) )/DEN 
X ( 3, 1 ) = ( ( PHI ( 2, 1 ) *PHI ( 3,2)+PHI < 3, 1 )*( 1 .-PHI (2 ,2) ) )*VU( 1,1) 
X +(PHI(3,2)*<1 .-PHI (1,1 ) )+PHI < 1 ,2)*PHI <3,1 ) )*VU(2, 1 ) )/DET 
X -f VU<3, 1 )/( 1 * -PHI (3, 3) ) 

IF (A0DE.EQ.2) GO TO 25 

X<2,1) = < PH 1(2,1 )4VU< 1 , 1 )+( 1 .-PHI <1 , 1 ) ) * VO <2,1 ) )/DEN 
GO TO 24 
25 X ( 2 j ( ) •- 0 . 0 
24 CONTINUE 

X < 4 , 1 ) =ET-PHI1 <4,t)*X(t,1)-PHI1<4,2)*X<2,1)- 
ZPH1 1 (4, 3)*X< 3, 1 )-D1 (4 , 1 )*U( 1 , 1 )-D1 (4,3)*U(3 ,1 )- 
ZD1 <4,2)*U<2, 1 ) 

CALL STS2<U,PHI,X,y,U) 

CALL S FS2 ( Y , PH 1 1 ,X,D1,U) 

IF(MODE.EO.I) GO TO 23 
CALL ST82< Z,PHI2 , V ,D2, U) 

Z < 2, 1 )=0. 

23 CONTINUE 

WRI TE (6 ,99 ) < (PH1 1 (I ,J), J=1 ,4) ,1 = 1 ,4) 

WRITE(6,98) ( (01 (I,J) ,J s 't ,4), 1=1, 4) 
WRITE(6,9?)(<PHI2(I,J),J=1,4),I S 1,4) 

WRITE (6,96 ) ( ( D2U, J) , J=1 ,4) ,1 = 1 ,4) 

IF (ntiDE.EQ. 1 ) GO TO 35 

WRITE( 6,89) ( (PHIM I ,J) , J=1 ,4) ,1=1 ,4) 

URI TE ( 6 , 88 ) ( ( D3< I , J ) , J= 1 ,4 ) , 1=1 ,4) 

35 CONTINUE 

URZ TE(6,95) ( (PHI ( I, J) , J=1 ,4) ,1=1 ,4) 
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06620 C UR 1IE(6,84)((VU,J),J® 1,4 ), 1 = 1,4) 

06630 C 88 F0RMAT</*PHI1=*,/*H615.4/)/) 

06640 C ye FORMAT </*DI=*,/4( 461 5.4/)/) 

06650 C 87 FORMAT (/*PHI2=*,/4(4G15.4/)/) 

O 066 O C y 6 FORMAT (/*D2=*,/4(4G15.4/)/) 

06670 C yy FORMAT (/*PHI3=*,/4( 461 5.4/)/) 

06680 C 88 FORMAT ( /*D3=* ,/4( 4G1 5.4/ )/ ) 

066y0 C y5 FORMAT (*PHI=*,/4(4G15.4/) ) 

06700 C y4 F0RMAT(*V=*,/4(4G15.4/) ) 

C URITE(6,78)X,U,T0N,TF1,TF2 

79 FORMAT(*X =*, 4G15.4/*U =*,4G15.4/ 

Z*TON =*,615.4,* TF1 =*,015.4,* TF2 ■*, 

ZG15.4) 

06710 RETURN 

06720 EMI) 

06730 *****l»*!*!ti*i*** lit:**;**:****:**:**** ************************** 

06740 SUBROUTINE STS2(U2,PHI ,U1 ,D,U) 

06750 DIMENSION PHI <4, 4) ,U 1 < 4, 1 ) ,02(4, 1 ) ,D(4 ,4) ,U<4 , 1 ) , 

06760 XTEMPY1 (4, 1 ) , TEMPY 2 ( 4, 1 ) 

06770 CALL RKMUL( TEMPT 1 ,PHI ,U 1 ,4,4, 1 ) 

06780 CALL RHMUL(TEMPV2,1),U,4,4,1 ) 

067y0 CALL RMADD(U2,TEMPY1 , TEMP Y2, 4,1 ) 

06800 RETURN 

06810 END 

06820 ************:M'i|‘*******''Mit*:t*;M:t*^M*^M*************** 

06830 SUBROUTINE PSIM2( PSI , TON, TFl ,X ,U ) 

06840 DIMENSION X ( 4, 1 > ,FBARO ( 4 , 1 ) ,FBAR< 4 , 1 ) ,PSI (4 ,4 ) , 

06850 XU(4,1),T(4,1),PHI1(4,4),D1(4,4), 

06860 XTEMPYl(4,1) , TEMPT 2 ( 4, 1 ) ,DELTX<4, 1 ) 

06870 C0MM0N/PARAM/F1 ( 4 ,4 ) ,F2 (4 ,4) ,F3 (4,4 ) ,G1 < 4,4) , 

06880 X62(4,4) ,G3(4,4) 

06880 COMMON/EXTPAR/Nl T ,EPS,NTERMS,MI T, TP,TF,LDUTY ,£ t ,MODE,XMU 

06800 VTON=TON 

06 V 1 0 VTF1 =TF 1 

06820 DELTON=XMU*TON 

06830 DELTF1=XMU*TF1 

06840 DO 71 1=1,4 

06850 71 DEL TX<I ,1 ) = XHU=*ABS < X < 1 , 1 )) 

06860 CALL FFUNC 2 < VT ON , V TF 1 ,X,U,FBARO) 

06870 C PRINT 51,FBAR0 

06880 C 51 FORMAT(*FBAR0=*,G15,4/3(6X,G15.4/)) 

06880 DO 68 J=1,4 

07000 C IF( J.NE.2) (30 TO 54 

07010 C IF( MODE. E 0.2) GO TO 72 
07020 54 X( J. 1 )=X( J, 1 )+DELTX( J, 1 ) 

07030 1 T=0 

07040 SCI = ZETA2( OTON ,X ,U ) 

07050 67 DZETA2=( ZETA2( OTON+DELTON ,X ,U )-SC1 )/DELTON 

07060 IT=IT+1 

07070 VTON=OTON-!jC1/DZETA2 

07080 SCI =ZETA2< OTON ,X ,U ) 


- 81 - 


o/ovo 

07100 

07110 

07120 

07130 

07140 

07150 

07160 

07170 

07180 

O71V0 

07200 

07210 

07220 

07230 

07240 

07250 

07260 

07270 

07280 

07290 

0/300 

07310 

07320 

07330 

07340 

07350 C 

0/360 C 

07370 

07380 

07390 C 

07400 C 

07410 

07420 

07430 

07440 

07450 

07460 

07470 

07480 ♦* 

07490 

07500 

07510 

07520 

07530 

07540 

07550 

07560 

07570 

07580 

07590 


IF <ABS<SC| /.LI .EPS) GO 10 64 
IFUT.LT. NIT) 60 TO 67 
PRINT 61, IT, SCI 

61 FORMAT <*NAX ITERATION ON TON. If=*.I3,* SC1=*,E12,6/) 
GO TO 70 

64 IF (H0DE.EQ.2) GO TO 81 
0TF1 = TP-VTQN 

IF (LDUTY .EG. 2) VTF1=TF 
GO TO 65 
81 CONTINUE 

CALL PHIN2WQN,F1,l'HI1 ) 

CALL DMAT2mON,F1,Gl,PH11,B1) 

CALL 3fS2< Y,PHI1,X,01 ,U> 

0EL(X(2, 1 > =XMU+ABS< Y(2, 1 ) ) 

11=0 

B1=BMAI2(VTF1,Y,U) 

63 DB=(BMA T 2 < V IF 1+DELTF1 , Y,U)-Bt )/0ELTF1 
I T=IT+1 

VTF1=VTF1-B1/DB 

B1=BNAT2<VlF1 f Y,U> 

IF (ABS( B1 ) *LT ,> 1 .E-6#EPS ) GO TO 65 
IFUT.LT. NI U GO 10 63 
PRINT 66,IT,b1 

66 FORMAT UMAX ITERATION ON TF 1 . IT=*,IM SC1=*,E12.6/) 
GO TO 70 

65 CALL FFUNC2(MT0N,VTF1,X,U,FBAID 
PRINT 53,V|ON,VTF1 

53 FORMAT (*VTON=* ,615.4/*VTF 1 =*,G1 5.4/ ) 

00 69 1=1,4 

69 PSK1,J)-(FBAR(I,1 )-FBAP0(I,1))/DELTX(J,1) 

PRINT 52, F BAR 

52 FORMAT (*F BAR : =* ,G1 5 . 4/3 <5X,G1 5. 4 / ) ) 

X < J, 1 ) = X( J, 1 )-DELTX<J,1) 

GO TO 68 
72 BO 74 1=1,4 
74 PSK I,2)=0. 

68 CONTINOE 
70 RETURN 
END 


SUBROUTINE FFUNC2(T0N,TF1,X,U,F) 
f/IMENSION TEMPI ' 4, 4 ) , TEMP2( 4,4) , PH1 1 (4,4) , PHI 2 (4, 4 ) , 
XPHI3(4,4) ,Bl < 4,4) ,02(4,4) ,03(4,4) ,PHI (4,4) ,V(4,4) , 

XF TEMPI ( 4, 1 ) ,F TENP2( 4* 1 ) ,F <4, 1 ) ,X<4, 1 ) ,0(4, 1 ) 
C0MM0N/PARAM/F1(4,4),F2<4,4),F3(4,4),G1<4,4),62<4,4). 
XG3(4,4) 


CONMON/EXTPAR/NIT, EPS, MTERMS, Mil, TP, TF, LDUTY, ET, MODE, XMU 
CALL PHIM2 (1 ON, FI , PH1 1 ) 

CALL PHIM21TF1 ,F2,PHI2) 

CALL DMAT2 (TUN ,F1 ,G1 ,PHI 1,01) 

CALL 0MAT2UF1 ,F2,G2,PHI2,02) 
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07600 
0 ? 610 
07420 
07430 
07440 
07450 
07440 
07470 
07480 
07490 
07700 
077 i0 
07720 
07730 
07740 
07750 
07740 
07770 
07760 
07790 
07800 
07810 
07820 
<7830 
v/7840 
07850 
07840 
07870 
07880 
07890 
07900 
07910 
07920 
07930 
07940 
07950 
07940 
07970 
07980 
07990 
08000 
08010 
08020 
08030 
08040 
08050 
08040 
08070 
08080 
08090 
08100 


CALI RHMUL(PHi,PHi2,PH11,4 f 4,4) 

CALL KHALIL (TEMPI ,PHI2,01 ,4,4,4) 

CALL KMAUB(V, TEMPI ,02,4,4) 

IFIHUDE.EQ.I ) GO TO 15 
IF<LDUTY.E0.1) GO TO 21 
TF2 S TF-TF1 
GO TO 22 

21 CONTINUE 
TF2=TP“TF1-T0M 

22 CONTINUE 

CALL PHIN2(TF2,F3,PMI3) 

CALL DHAT2(TF2,F3,G3,PHI3,II3) 

CYlLL KMNULOENP2,PHI3,PHI,4,4 r 4) 

CALL RMCPY(PHI,TENP2,4,4) 

CALL RNMUL< TEMPI , PH 13,0,4,4,4) 

CALL KMADD < V r TEMPI ,03,4,4) 

15 CONTINUE 

CALL SIS2(F,PHI,X,V,U) 

IF (MGDE.EQ .1)00 TO 2 
F < 2 , 1 ) -0 . 

2 RETURN 
END 

4*:M*:M*:M****tt*4* 4* **:»*»*****'): lM********************* 
SUBROUTINE GAHH2<GAM r T0N, TFJ ,X,U) 

DIMENSION X < 4, A ) ,U ( 4, 1 ) , FBARO( 4 , 1 5 ,FBAR ( 4 f 1 ) , 6AN( 4, 1 ) , 
XPMI1 < 4 ,4) , D1 (4,4) , TEMP Y I <4,1 ) ,TEMPY2(4, 1 ) ,Y<4,1 ) 
C0MM0N/PARAM7F1 (4,4),F2<4,4),F3<4,4),G1 (4,4), 

XG2(4,4) ,G3(4,4) 

CONMON/EXTPAR/NIT,EPS ,NTERHS,NIT, TP,TF,LDUTY,ET ,H00E,XNU 

OTON=TON 

V T F 1 = T F 1 

DELT0N=XNU*1 UN 

DELTF1=XNU*TF1 

DELU=XNU*ABS (U ( 1,1)) 

CALL FFUNC2(UT0N,UTF1,X,U,FBAR0) 

U< 1 , I )=U( 1 , 1 )+DELU 

i r=o 

SC1 = 2E TA2(VT0N,X,U) 

47 D2ETA2-(2ETA2(VTON*DELTCN,X,U)"SC1 ) /DEL TON 
I T = I T ♦ 1 

OTON=V TON- SC 1 /DZETA2 
3C1=2ETA2<VT0N,X,U) 

IF < ABS (SCI ) .LT .EPS) GO TO 44 
IF( IT.L'T.NI O GO TO 47 
PRINT 41,1T,GC1 

41 FORMAT (*NAX ITERATION ON TON. IT**,I3,* SCI**, £12.47) 

GO TO 70 

64 CALL PH IM2 < VTOW ,F 1 , PH1 1 ) 

CALL BNAT2(VTQN,F1 ,UI ,PHI1,D1 ) 

CALL STS2(Y,PHI 1 ,X,D1 ,U) 

I T = 0 
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08110 
08120 
08(30 
08140 
08150 
081*0 
08170 
08180 
081 vo 
08200 
08210 
08220 
08230 
08240 
08250 
08260 
08270 
08280 
08290 
08300 
08310 
08320 
08330 
08340 
08350 
08360 
08370 
08380 
08390 
08400 
08410 
08420 
08430 
08440 
08450 
08460 
08470 
08480 
08490 
08500 
08510 
08520 
03530 
08540 
08550 
08560 
08570 
08580 
08590 
08600 
08610 


IF(M0«E.EG,1 ) 80 TO 65 

M*MAr2(VrFM f U> 

63 DB= (BNAT2(VTF 1 +BELTF1 ,Y ,U)-B1 )/DELTF 1 
I T * I T ♦ 1 

VTF1 =VTF 1 -B1 /DB 
B1 a BrtAT2(VTF1 , Y,U) 

IF( ABS( 61 ) .LT . 1 .E-6*EPS) GO TO 65 
IF ( IT.LT .NIT ) GO TO 63 
PRINT 66,IT,B1 

66 KURHAT ITERATION ON TF 1 . SC1=*,E12.6/> 

GO TO 70 

65 CALL FFUNC2<VT0N,YTF1,X,U f FBAR) 

BO 69 1=1,4 

6i GAN( 1, 1 ) = (FBAR <1,1 ) — F BARO ( 1 , 1 ) ) / DEL U 
U( 1 , 1 )=U( 1 , 1 )-DELU 
70 RETURN 
ENB 

444 * 444 * 4 * 4 * 444 * 444 * 44444 * 4 * 4 * 44 * 44 ^ 44 * 44 * 4444 * 4 * 444*4 
SUBROUTINE XNAT2< TON, XNAT ) 

DIMENSION PHI1 (4,4 >,D1 (4 ,4) yPB|2(4,4) ,D2(4,4) , 

XPH13(4,4) ,D3<4,4) 

C9NM0N/PARAM/F1 ( 4 ,4 ) ,F2( 4 ,4 ) ,F3 (4 ,4 ) ,81 <4,4>,G2(4,4), 
XG3< 4,4) 

CONNON/EXTPAR/NIT,EPS,NTERNS,NIT,TP,TF,LDUTY,ET,NOBE,XNO 
COMNON/STATE/X( 4, 1),Y(4,1),Z<4,1),U(4,1) 

TF1=TP-T0N 

IF’(LBUTY.EQ .2 ) TF 1 = TF 
CALL STATE2( TON, TF 1 > 

CALL PMII42 < 'TF1 ,F2,PHI?) 

CALL DMA T2( TF1 ,F2,G2 ,PHI2,D2 ) 

XNAT = X(4,1 )-PHI2(4,1)*Y(1,1)-PHI2(4,2)*Y(2,1)-Y(4,1 )- 
X PHI2(4,3)*Y(3,1)-D2(4,2)*U(2,1 )-D2(4, 4)*U(4, 1 )- 
X D2 ( 4, 1 )*U< 1 , 1 ) 

RETURN 

END 

!»*«*** :*#*#:<i***:**!»***4*’ 4 * 4 * 44 * 4*4 ** ♦*:*:**:* 44 * 4 * 4 * 4 * 4 * 4*4 

SUBROUTINE SNAT2( TON, TF 1 , SHAT ,B«AT ) 

DIMENSION PH1 1 ( 4,4) ,01 (4,4) , 
XPH12(4,4),D2(4,4),PHI3(4,4),D3(4,4) 

COMMON/PARAM/ F1(4,4),F2(4,4),F3(4,4),G1(4,4),G2(4,4), 
XG3<4,4) 

C0NHQN/EXTPAR/Nn,EPS,NTERN8,NIT,TP,TF,LDUTY,ET ,NOOE,XNU 
COMMON/ ST A I E/X(4,1),Y(4,t),Z(4,1),U(4,1) 

PTF 1 = TF 1 

DELTF1 =XMU'*TF1 

CALL 8TATE2 (TON, IF 1 ) 

rr=o 

B1 =BNAT2 < TF1 ,Y,U) 

IF(ABS(B1 T.LT.EPS) GO TO 32 
31 B2=BMAT2( TF1+DELTF1 ,Y,U) 

DBMAT 2=( B2-B1 )/D£LTF * 
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08620 


TM“IM~B1/DBNAI2 

08630 


bi=bmat2<ih,y,u) 

08640 


IFIABSIBD.LT.EPST 60 TO 32 

08650 


i t = n ♦ i 

08660 


in rr.LT.Nif > oo to 31 

08670 


PRINT 33,IT,TF1,B1 

08680 

33 

FORMAT ( '♦MAX . ITERATION ON IT S * 

08690 


TF 1 =PTF1 

08700 

32 

CONTINUE 

08710 


CALL STATE2(TQN f TF1 ) 

08720 


CALL PHIM2I TF1,F2,PHI2) 

08730 


CALL DNAT2<TF1,F2,G2,PHI2,B2) 

08740 


CALL ST82(Z ,PMI2 f Y f 02, U) 

08750 


IF ( LOUT Y ,EQ . 1 ) 00 TO 21 

08760 


!'F2= TF-TF 1 

087/0 


GO TO 22 

08780 

21 

C0NI1NUE 

08790 


TF2=TP- TUN-TF1 

08800 

22 

CONTINUE 

08810 


CALL PHIM2I IF2 f K3 f PHI3) 

08820 


CALL DMAT2( TF2,F3,G3,PHI3,D3) 

08830 


SNAT=X(4 f 1)-PHI3<4,1)«(1,1)- 

08840 


X PHU(4,3)*Z<3,1 >-Z<4,1HD3<4, 

08850 


BMAT =81 

08860 

34 

RETURN 

08870 


END 

08880 

^4**’*****^*********************** t 

08890 


FUNCTION BMAT2<TF1,Y,U> 

08900 


DIMENSION PHI2(4,4),D2(4 ? 4),Y 

08910 


COMMUN/PAKAN/ FI (4.4) ,F2<4,4) 

08920 


X63 < 4 f 4 ) 

08930 


COMMQN/EX 1 PAR/N1T , EPS ,N TERMS, 

08940 


CALL PH1M2ITF1 ,F2,PHI2> 

08950 


CALL DMAI2<TF1,F2,G2,PHI2,D2) 

08960 


8MAT2" J PHI2 <2, 1 )*Y(1 ,1 )*PH12(2 

08970 


Z D2(2 f 1)*U(1,1 )+U2(2,4)*U(4,1 

08980 


RETURN 

089V0 


END 






Appendix C. Buck-Boost Regulator Computer Program Description 

The computer program Is very similar to Appendix B Boost Regulator. 
Table B1 through B3 also apply In this program. Table Cl Is example of 
nominal case data. Table C2 list the buck boost PAS computer program. 



Table Cl. BBPAS Program Parameters 


RO 

0.19 

LRTL 

0 

LO 

2.2E-4 

NRL 

2 

CO 

6.0E-4 

OPRAM 

0 

RS 

0.013 

PRAMF 

0 

RL 

20.0 

LIST 

1 

R1 

56.258E3 

LPEAK 

0 

R2 

16.E3 

LFE 

0 - 

R3 

47.E3 

NK 

15 

R4 

4.E4 

LFREQ 

0 

R5 

2.E3 

LPARAK 

0 

Cl 

5.6E-9 

LCOMP 

0 

C2 

3.3E-8 

LPC 

0 

TP 

3.E-5 

LSA 

0 

VO 

28. 

LRLPC 

0 

El SUIT 

23. 

LCFR 

0 

XMU 

0.01 

LPEAK 

0 

El 

40. 



ER 

6.2 



EQ 

0.2 



ED 

0.7 

NOTE: Resistance, 

Inductance and capacitance 



are given on 

otrns, henries, and farads 

ET 

7.5 

respectively 

. Voltages are given In 

EPS 

l.E-5 

vol ts . All 

other parameter units 



are Identified In content. 

THETAO 

0. 



DELTHET 

5. 



THETAF 

180. 



NIT 

10 



N1 

33 



N3 

22 



EFF 

.94 



NTERMS 

20 



MIT 

5 
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APPENDIX C 

TABLE C2. BUCK BOOST PAS COMPUTER PROGRAM 


OO1O0 PROGRAM PAS3<INPUI,0UIPUI f IaPE5=IMPUT, IAPE6=0UIPUT, 

00102 X1APE3 ,TAP£4, IAPE/) 

001)0 ****** BUCK-BOUS I PAS lNPLEf1f.NI TRANSIENT HISTORY ALGORITHM 

00120 ****** f OK VO COMPUTA I ION 4.4.78 

00130 ****** BUCK-BOOST PAS MODIFY TP2 CUTOFS' CRITERION 

00140 *♦♦**♦ TF2.GE.TEPS=UIP SPECIFIES M0DE=2 OPERATION 

00150 ****** MODIFY TRA AND LC\\ SEQUENCE IN ORDER 10 UTILIZE 

00160 ****** PROPER PS1 MATRIX OPFKAUNG POINT (EI/RL ) 

00120 ****** ABOVE CHANGES IMPLEMENTED 3.22.78 

00180 ****** BUCK-BOOST PAS FOR TP CONST ( LLUJT Y= 1 ) AND 

001 VO ****** TF CONST (LDUTY=2 ) 3.23.78 

00200 ****** IRA DELTA VO RISIURY 3.22.78 

00210 ****** LCA LOAD CHANGE ANALYSIS RL TO KLSWI! 3.22.78 

00212 ****** IAPE4 IS ASA DATA 


00214 ****** TAPE3 IS IRA DATA 


00220 
00230 
00240 
00250 
00260 
00270 
00280 
002 VO 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00390 
00400 
004)0 
00430 
00440 
00450 
00460 
00470 
00480 
00490 
00500 
00510 
00520 
00530 
00540 
00550 
00560 
00570 


DIMENSION RIPX<4,l),PSiU,4),PSY(4,4>,OAM<4,1),INT<8), 
XXFP(4,1 >,PKAM<10) r H(4),R(4,5>,ITDL<3),IVU(4),DELX<4,t >, 
XPH11(4,4),PHI2(4,4),PHI3(4,4),Dt (4,4) ,02(4,4) ,03(4,4), 

XU( 4 , 1 ) ,RPRAM< 1 0 ) , XTR ( 4 , 1 ) , Y 1 R( 4, 1 ) ,Z ! R (4 , 1 ) 

COMMON /PARAM/F1 ( 4 , 4) ,F2(4, 4) ,PJ(4, 4) ,G1 (4,4) ,02(4,4) , 

X63 (4,4) 

COMMON/EX I FAR/NIT, EPS, N TERMS, MIT. TP, IF, LDUTY, El ,MODE,XMU 
COMMON /STAIE/X(4,1 ), 1(4,1 ),2< 4, i ), 0(4,1) 

EQUIVALENCE (PRAM( 1 ) ,C1 ) , (PRAM(2) ,C2) , 

X( PRAM ( 3 ) ,R3 ) , ( PRAM ( 4 ) ,R4) , ( PRAM (5 ) ,R5 ) , 

X ( PRAM ( 6 ) , RL ) , ( PRAM (7 ) ,N3 ) , <PRAM(8) ,L0) , 

X ( PRAM ( y ) , CO ) , ( PRAM ( 1 0 ) ,E1 ) 

REAL LO,N) ,N3,KD,KL,F!P,LP 

DATA RO , LO, CO ,RS, RL/O . 1 V , 2.2E-4 ,6.E-4, 0.01 3, 40 . / 

DATA 11 , R2 , K3, R4,R5 ,C1 , C2/56. 258E3, 16.E3,47.E3,4.E4,2.E3, 
X5.6E-9,3.3E-8/ 

DATA Li ,ER , EQ , ED ,E I , EPS/40. ,6, 2, 0.2, 0.7, 7. 5,1 .E-5/ 

DA I A IP,V0,EISWIT,XMU,KD/3.E-5,2S.,40. ,0.01,6,2/ 

DA I A THE TAO, DELTHE f , THE TAF/O. ,5. , 180./ 

DA I A N I T , N 1 ,N3,EFP/50,33.,22. ,.94/ 

DA I A NT k'RMS , MIT , LR I L ,NRL,DPRA(1,PRAMP720 ,5 ,0 , 10, 4. ,40. / 
DATA LIST, LPEAK, LPE. NK f LFREQ/1 ,0,0,60,0/ 

DATA L PAR AM , LCOMP,LPC ,LSA , LRLPC ,LCFR ,L PEAK/O ,0 , 0 ,0,0, 0,0/ 
DATA RPRAM/2HC1 ,2HC2,2HR3,2HR4,2HR5,2HRL,2HN3,2HLO, 

X 2HC0 r 2HE 1 / 

DATA RLSU1 1 , LRL/600 . , 0 ./ 

DATA TF ,LDU1 Y , TPCON/ 1 .51 4365E-5, 1 ,3.F>5/ 

DA I A QLDTIME,LTR, LRESP ,1 SUi T , TFINAL/O . , 1 ,0,2.l:-3, 1 3.9E-3/ 
DATA MIR, SEP S/1, 2. E-4/ 

NAMELIST/PARAM/RO ,L0, CO ,RS ,RL,R1 ,R2,R3,R4,R5,Cl ,C2, 

XN1 ,M3,EFF,EI,£R,EQ,ED,E|',TP, IF', VO 
NAMEL I SI/C'OMP /EPS, NT T ,XMU,NTERMS, MIT 
NAMLL 1 ST/ CON I RL/LPAKAM , LCUMP, LPC . LS A , LK I L , LRU i . LFREfl 
X , L C l- K .LPEAK , LOAD, LUU I T , LRESP 


00580 

005V0 

00600 

00610 

00620 

00622 

00624 

00(430 

00640 

00630 

00660 

00670 

00680 

00690 

00700 

00710 

00720 

00730 

00740 

00750 

00760 

00770 

00780 

oo/vo 

00800 

00810 

00820 

00830 

00840 

00850 

00860 

00870 

00880 

00890 

00900 

00910 

00920 

00925 

00930 

00940 

00950 

00960 

00970 

00980 

00990 

OIOOO 

010)0 

01020 

01030 

01040 

01050 


5 !► y£ .V 






NAMELIST /RLPARAM/NKI.., OPRAH, PRAHP 
NAMEL1ST/P RPAKAM7 I HE I AO, DEL THE ( , IHETAF 
NAMtLlSf/]APARAM/ti,ElSUlMK 
NAHELIS I7HPARAM/RL,RISUIT,NK 
NAHELiST/TKPARAM/UUMIME.TSWIT, f FINAL 
REWIND 4 
REUINO 3 
PEW I flO 7 

: UK 1 ft (6 ,99) 

9V FORMA I < 1 X,*PKOGRAM PUNCVION^ , 1 3X,+ CONTROL PAKAMEIER < 1 -VES O-NO)* 
X 7* CHANGE PARAM*, 1 8X,*LPARAM* 

X /* CHANGE COMP*,19X,*LCOMP* 

X /* Liar PARAM, COMP*, I4X,*LPC* 

X 74 y I ABILITY ANALYSIS*, 12X,*LSA* 

X 7* KUO 1 LOCUS ANALYSIS*, 1 1X,*LKIL* 

X /* L1SI PAHfirtt I EH CUDE*,6X,*LKlPL* 

X /* AUDIU ANALYSIS*, 16X,*LFREU* 

X /* CHANGE PKEU RANGE* ,8X ,*LCFR* 

X 7* IRANSIEN1 ANALYSIS, )2X,*LPEAK* 

X 7* TRANSIENT LUAU *, 12X,*LQAD* 

X /* UUT Y' CYCLE SCHEME *, 12X,*LDU I Y* 

X /* I KANS1S I ION ALGURlfHN ♦ ,6X ,*LRESP*7 ) 

400 CONTINUE 
WRI I E( 6,401 ) 

401 FORMAT <1X,*tNTEK N TU DISCONTINUE PAS, OTHERWISE Y*) 

REAM 5 , 402 ) XI 

402 FORMAT <A1) 

IF 1X1 .EU.1HN) STOP 
WRIT E( 6, 403) 

403 FORMA ( 1 1 X , * INPUT PAS CONTROL PARAMETERS*) 

RE AO 1 5 , CON I RL ) 

C UR1 I E 1 6 ,C(JN i RL ) 

lHLlHJfY.EQ.1 ) GU IU 420 
WR1 IE(6,42l ) 

421 FORMA T 1 / I X, *C(JNS IAN I TP DUTY CYCLE SCHEME*/) 

GU IU 422 

420 CUNI1NUE 
TP= IPCON 
WRITE 16,423 ) 

423 FORMAT 1/1 X,*CONSTANT TP CUTY CYCLE SCHEME*/) 

422 CONTINUE 

IP (LPAKAM.EU.O) UU TO 404 
REAU15,PARAM) 

404 IP 1 LCUMP . EU . 0 ) GU 10 405 
READ (5, LUMP) 

405 IF(LPC.EQ.O) GO IU 406 
WRI IE(6,PAKAM) 

WRI fE 16, COMP) 

406 IP (LSA.EQ.O) 00 IU 407 
GU IU 5 

407 IP URIL.LU.O) GO IU 40S 
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01060 


iHLKUT.tU.O) UU (U 40y 

010/0 


UNI I t (6 f 460 ) 

01080 

460 

FORMA IMX,* CODE PARAMETER* 

oiovo 


X /* 1= Cl*/* 2= C2*/* 3° N3*/ 

01100 


X * 4 s N4*/* 5- R5*/* 6 s Rl*/ 

oino 


X * /= N3*/* 8= LO*/* V- CO*/ 

0)120 


X ♦ 10= £1*/) 

on iso 

40? 

UNI(t(6,410) 

01140 

410 

F-OHMAf (1X,*1NPUT KUO 1 LOCUS PARAMETERS*) 

01150 


READ(5,RLPARAM) 

01160 


URI !E(6,RLFARAM) 

011/0 


60 ro 5 

01180 

408 

IFUFREO.EG.O) GO 10 4)1 

Olivo 


lFUCFR.EG.O) 60 10 b 

01200 


UR 11 E( 6, 4) 3) 

01210 

413 

FORMAT! 1X,*1NPU 1 FREQUENCY RANGE PARAHE IERS* ) 

01220 


READ<5,FRPAKAM> 

01230 


URITE(6,FRPARAM) 

01240 


GO TO 5 

01250 

41 1 

IF(LPEAK.EU.O) GO TO 415 

01260 


UNITE (6,414 ) 

012/0 

414 

FORMA f( IX,* INPUT TRANSIENT ANALYSIS PARAMETERS*) 

01280 


READ(5, < APARAM) 

01 2 VO 


UR 1 1 1 (6, f APARAM) 

01300 


GO 10 5 

01310 

415 

IF (LOAD. EO >0 ) GO TO 424 

01320 


UNITE! 6, 41 6) 

01330 

416 

FORMA! ( IX,* INPUT LOAD CHANGE PARAMETERS*) 

01340 


R£AD(5,RPARAM) 

01350 


0RI1E(6,RPARAM) 

01360 

424 

COMUNUE 

013/0 


IP (LRESP.EQ.O ) GO TU 400 

01380 


UNITE (6 ,425 ) 

01390 

425 

FORMA mX,*lNPUT 1 RANSi ! ION RESPONSE PARAME1ERS* ) 

01400 


READ(5, TRF'ARAM) 

01410 


URIU(6,TRPARAM) 

01420 

5 

CONTINUE 

01430 


IF (LKTL.EQ .0 )G0 TO 4 

01440 


UR I TE ( 6 , 2 1 2 ) RPRAM ( NRl ) , PRAM ( NRL ) 

01450 

212 

/0RMA1 (//*ROOT LOCUS PARAMETER *,A2,* = *,GI2.4) 

0)460 

4 

CONTINUE 

014/0 


GLDti=EI 

01480 


ULURL=RL 

0 1 4 VO 


KL = KL/ (KS+RL ) 

01500 


KD=K2/limK2) 

01501 


KP=N1/L0 

01510 


DU 11 1-1,4 

01520 


DO 11 J=1 ,4 

01530 


(J1 ( 1 , J )=G2 ( 1 , J) =G3( I, J)“0. 

01540 

11 

F 1 (I , J)=F2( I, J)=F3< J. , J)=0. 

01561 

19 

F 1 ( 1 , 1 )=F2( 1 , 1 )=F3( 1 , 1 )-~ 1 ./(CO* < KI.+KS ) ) 
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01570 
01580 
0I5V0 
01600 
01610 
01620 
0)630 
01640 
01650 
01660 
01670 
01680 
01690 
0)700 
01710 
01720 
0)730 
01750 C 
01760 C 
01770 C 
01780 C 
01790 C 
01800 C 
01810 C 
01820 C 

01830 C 
01840 C 
01850 C 
01860 C 
0)870 
01880 
01890 
01900 
01910 
01920 
01930 
01940 
OlVSO 
01960 
01970 
01980 
01990 
02000 
02010 
02020 
02030 
02040 
02050 
02060 
02070 
02080 


FM2,2)«-R07l0 

F M3,3)=F2(3,3)*M(3,3)=~J ./<C2*RS) 
FH3,!)»F2<3,1)«F3<3,))=-KL*F1<3-3> 

FI ( 4, 3)«F2< 4, 3 )*FJ< 4, 3)*t ./<C1*R5> 

01 (4,2)*G2(4,2) C 63<4,2)=1 ./(C)*<R3*N1*K0) ) 
FI <4, 1 )*F3<4, 1 ) = ~KD* <K0 : *G1 <4,2)+F1 (4,3)) 

G1 (2,3)=62(2,4)*H7M1 
6) (2, 1 )=-G1 (2,3) 

01 ( 4, 3 )=G 2 (4, 4) *N3/ (N1*C1 *R4) 

G 1 (4,1 )*-G1 (4,3) 

FI <4,2 )*N1*f1 <2,2)401 <4,1 ) 

F2( 1 , 2)=KL*KP7C0 
F2<2, 1 )=-Kt/N1 

F2(2,2)=KP ! 4R8*F2<2,1 )*Fl (2,2) 
F2(3,2) s KP4HS’4F2(3, 1 ) 
F2(4,1)=KUb1<4,3)4F1<4,1) 

F2< 4 ,2 )=KP ! *KS*F2<4 , 1 )+F1 (4,2) 
URITE(4,93)((F1(I,J),J B 1,4),I a 1,4) 

UR1 1E(6,98) ( <G) < 1, J) , J = 1 ,4) , 1=1 ,4) 

UR1 It ( 4, 97 ) ( (T 2< I , J) , J=| ,4 ) , i= 1 ,4) 

«R1 (t ( 6,96 )( (02 (1,J),J=),4), 1=1,4) 

WRITE (6,95 ) < <F3<1 , J ) , J=1 ,4) , 1 = 1 ,4) 
URITE(6,94 ) < <03 ( I , J) , J=1 ,4) ,1 = 1 ,4 ) 

93 FORMAT (7*F 1 =4 ,74 <461 5 .47)/) 

98 FORMAT </'4G1 = '*,/4<4Gl5.4/)/) 

97 F0RNAT(/‘4F2=*, 74(4015.4/17) 

96 F0RNAT(/*>G2=*, 74(4015. 4/)/) 

95 FORMAT (/*F3=*,/4(4G)5. 4/)/) 

94 FORMAT </*G3=*/4 (461 5. 4/ )/ ) 

U(1 ,1 )=EI 

U( 2, 1 )=ER 
U( 3, 1 ) =EQ 
U(4,1)=ED 
H(2)=H(3)=H(4)=0. 

H ( 1 )=KL 
P0=V0**2/Rl 
l. P ~ L 0 ♦ F‘ 0 

OA=£FF*El‘*<tl-EO)*<VO+E0-EO) 

QB=-2.:*LP*(00+EI)-EI) 

QC=Q8*TF 
7 CONTINUE 

IF(LDIW.EU.I) GO TO 41 
DN=EFf *EI* (EI-EO ) 

T 0N=< LP-f SOK f (LP'4*2F2.'» l DM*Lpi* rF) )/BN 
TF 1 =TGR* ( E I-tO )/( VO+ED) 

TF2 a lf-TF1 
IP-TON+ I P 
GO TO 42 
41 CONTINUE 

GTGN=SQK f ( 2. 4U'* TP/EPF ) 

I ON=OI 0N/80R J ( t I*(tl *tU/ ) 
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O2oy o 
02100 
02110 
02120 
02130 
02140 
02150 
02130 
02170 
02180 
02190 
02200 
02210 
02220 
02230 
02240 
02250 
02230 
02270 C 
02200 C 
02290 C 
02300 C 
02310 
02320 
02330 
02340 
02350 
02330 
02370 
02380 
02390 
02400 
02410 
02420 
02430 
02440 
02450 
02430 
02470 
02480 
02490 
02500 
02510 
02520 
02530 
02540 
02550 
02530 
02570 
02510 
02590 


TF 1 - 1 on* 4 tl-to )/< VO+£D) 

FF 2 = rp-ruw-in 

42 CONTINUE 
TEPS* ,01* rp 
BELT0N=XMU4T0N 

IF (TF2cQE . TEPS) 60 TO 3 
H0D!>1 

IfaOUTY.EO.D GO TO 43 
T0N=TF*',004EB)/1E1-EU) 

TF1*TF 
Ip=10N4TF1 
GO TO 44 

43 1 UN= IP* (V04£D)/< VO+ED-EG+EI ) 

TP1 - fiP- TON 

4 4 CUN 1 1 HUE 
UTUN- fuN 
orn-TFi 

CALL S T A TE2 < TOM , TF 1 ) 

UR1TE13,27)T0N,TF1 ,TF2,X,V,Z 

27 FORMA r(*M0DE=1*/*APPRU,/iNATE STEADY ST ATE*/*TON=* , G1 5. 4 , 
X * TFT S *,G15.4,4 1F2**, G15.4/4X®*, 4015. 4/*Y«* ,4015.4/ 

X 42=* f 4G15,4) 

DEL l(JN=XMl)4 TON 
lf=0 

CALL XMAT2(TGN,XC1 ) 

18 CALL XNA l‘2< fON+DELT0N/XC2) 

DMA rCK*(XC2-XC1 ) /UELTOM 
T0N=T0N-XC1/DMAICH 
CALL XHAT21 rON,XC1 ) 

IT=1T+1 

IFIABSIXCI ).LE.EPS) 00 TO 31 
IFUT.LT. NIT) GO TO 1 8 
TON=OTON 
TF1 «OTF 1 

CALL STATE2(T0N,TF1 ) 

uri re <3 ,34) 

34 FORMAT (/^EXCEED MAX. ITERATION FOR THE EXACT STATE*/ 
X*APPROXINA IE STATE IS CALCULATED'*/) 

31 CONTINUE 

IFILDUrY.EO. 1 ) GO TO 45 
TF1»TF 
TP=T0N+TF1 
GO TO 43 
45 CONTINUE 
TP 1 = IP-TUN 
43 CONilNUt 

CALL PH1M21 ffl ,F2,PH12 ) 

CALL DNAT21IF1 ,F2,G2,PHI2,D2) 

ERR=X < 4 , 1 ) ~F'HI2( 4, 1 )'*T ( 1 , 1 )-PMI2(4, 2 )*Y (2,1 )- 
X PHI2<4,3)*Y(3, 1 )-Y14,1 )- 
X D2 1 2 ) ; *U (2 , 1 )-D2 1 4,4) *U(4 , 1 ) 


02600 

02610 

02620 

02630 

02640 

0265C 

02660 

02670 

02680 

02690 

02700 

02710 

02770 

02730 

02740 

02/50 

02760 

02770 

02780 

02790 

02800 

02010 

02820 

02830 

02840 

02850 

02860 

02870 

02880 

02890 

02900 

02910 

02920 

02930 

02940 

02950 

02960 

02970 

02980 

02990 

03000 

03010 

03020 

03030 

03040 

03050 

03060 

03070 

03080 

03090 

03100 


00 32 1=1,4 

32 RIPXU,1>*XU,1MU,1) 

CALL STAIE2<T0N,TF1 ) 
rpCT-*oo.*roN/TP 
IF (LRTL.E0.2) 80 TO 36 
IF(NTR.E0.2) GO TO 36 

WRITE<6,35) E I , RL , L DUT Y , NODE , T ON , T F 1 , T P , TPC T , X , Y , R I PX , 

X ERR, II , TEPS 

35 F0RHAT(/*E1 =*,812.4,4 RL=* r G12.4 t * LDUTY«*,I3, 

X • NODE** , I3/*T0N =*,G1M,» TF1«* t G12.4,* TP=*,G12.4, 

X * TPCT=*,G1Z.4/*X =*,4G12.4/*Y =*,4812.4/ 

X *RIPX=*,4G12.4/*ERR =*,812.4,* IT=*,I3,* TEPS=* f G12.4/ > 

36 CONTINUE 
GO 10 56 

6 CONTINUE 
PTON=TQN 
PTF 1 = IF 1 
HUDE=2 

CALL S1ATE2UQN, TF1) 

UR I I £ < 6 , 1 7 ) T ON , T F 1 , TF2 f X , Y , Z 

17 FORMAT <*NGDE=2*/*APPR0XIHATE STEADY STATE*/*T0N=*,G15.4, 

X* 1 K 1 - ♦ , 815.4,* |F2=*,G1S.4/ 

X*X = MG15.4/*Y=*,4G15.4/*Z**,4G?5.4/) 

IF - 0 

CALL SNA 1 2 (TON, TF1 ,SC1 ,BC1 ) 

9 CALL SNAT2UQN+DELTQN,TF1,SC2,BC1) 

BSNAT2MSC2-SC1 >/l)EL TON 
TON" TON— SCI /DOHA 1 2 
CALL SNAT2(T0N,TH , SCI, BCD 
IT=IT+1 

IF ( ABS< SCI ) .LE.SEPS) GO TO 10 
IF<li.U. NIT) GO TO 9 
TFl=PTP1 
TON=PTON 

CALL SHAT 2 ( TON , TF 1 ,SCT ,BC1 ) 

'0 CONTINUE 

IF < LDUTY. tQ . 1 ) GO TO 47 
TF2-TF-TF 1 
TP= ION+TF 
GO TO 48 

47 C UNUE 
T.U)=rp-TFl-TON 

48 CONTINUE 

13 DO 12 1=1,3 
12 RIPX<I,1) = X(I,1)~Y(];,1> 

CALI. STATE2< TON, TF 1 ) 

TPCT=100. MON/TP 
IF1LRTL.EU.2i GO TO 56 
IF1NTR.EG.2) GO TO 36 

WRITE (6,55) EI,RL .LUUTY , NODE, TON, TF1 ,TF2,TP,X, Y,Z, 

X RiPX , SCI , 1 1 , TPC I , BC1 
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03110 
Oil 20 
01130 
03140 
03150 
03140 
03120 
03180 
031 VO 
03X00 
03210 
03220 
03230 
03240 
03250 
04240 
03220 
03280 
032V0 
03300 
03310 
03320 
03340 
03340 
04350 
03340 
03320 
03380 
033V0 
03400 
03410 
03420 
03430 
04440 
03450 
03440 
03420 
03480 
034VO 
03500 
03510 
03520 
03540 
04540 
03550 
03540 
03520 
03580 
045 VO 
03400 
03410 


55 F0K4AI \2*81 **,812.4,* N8-*,G12.4 t * 80UIY-*,13, 

X * ftUUfc**, 13,2*104 **,G12.4,* IH**,U12.4,* !► 2»*,612.«, 

X * !8«4,.S12.4/*X **,4(M2,4/*Y -*,4012. 42*2 

X 4812. 4/*RlFX**,4G»2. 42*881 -*,012.4,* 

X ♦ TPG!M,G12.4,* 8C1 **,012.4/ ) 

54 CONTINUE 

CALI. NS 1420*81, TON, IF 1 ,X,U) 

CA88 N4CNY < NS Y,F‘S 1,4,4) 

1 1 ML < 1 ) » 4 
Ul)G(3)*0 

CA88 0NAG<m,K,4,H,V,lN1,IVl),M*G> 

G IF (GRl 8,48.2) 60 10 42 

8 UNI 18(4,48) 40M,TNC| 

G 62 C0NII4U8 

C 40 F0N4A! (*N0W8 **,I2«* DUTY 8'YUGG «*,Fb»2/> 

8 IF (GRIG. til. 2) 00 !l) 22 

UNI It (6,20) (0*81 (1, J) , J«1 ,4 ) , I»1 , 4) 

20 F0R4AI ( *F'S1**,/4(4U15»4/) ) 

1HNIR.CQ.2) GO 10 24 
22 UR1U<4,24)((RU,J),J*1,2),1*1,4) 

24 FUR4A 1 (SX, 4NRKAi, 1 1 X, 4H1NA0, 1 1 X, 4RRtAl , 1 1 X, 4N1NAU, 

X 22(4815.42)) 

26 CONTINUE 

IF(tRtSN.tU.O) 00 10 550 
CULL t'MAHiit ION,M ,F'H11) 

C4G8 1>NAI2(10N,M,G1,PNJ1,D1) 

CAU NM142( 1M ,82,F'N12) 

CALL 846 1 ill IF 1 , F 2 , 82, NHI2 , 02 ) 

0(4008.80, 1 ) 00 10 58V 
GAGG NN1N2( IF2.F4,F'N)4) 

CALL 04RT2 ( 1 F 2 ,F3 , 03 , PH 1 4 , 83 ) 

58y DON I INUt 

1148*0081 INt 
1KUN.8U.2) GO TO 501 
IF (4008.80. I ) 00 TO 500 
CALL RNGNYUlN,2.4,t) 

V0IR*KL*2 IN ( 1 . 1 )-V0 
G UNnt(6,5VV)ti4e,21N,VOTR 
UN 1 1 8 ( 2 , 5V V ) T I NC , ZTK , 00 1 N 
5W F0N4AI (4G12.4) 

00 TO 501 

500 CUN 11 NOG 

8488 NN8T" (Y IN , Y ,4 , 1 ) 

OOl N s K8*i iR(1,l HR8*KG*YlN(a,1)“V0 
G MR l T8 ( 4 , 5 V V ) 1 148 , Y I N , VO I R 

UNi1t(2 ,5VV) 1 14t,Y IN, VO IN 

501 CONTINUE 
TINE* U48i ION 
IFOIOOG.GU, 1 ) GO 10 502 
CAL8 01 82 < X I R , NM1 3 , 2 1 R , 1*4, U) 


03620 


GO TO 503 

03630 

502 

CONTINUE 

03640 


CALL STS2<XTR,PH12,YTR,D2,U) 

03650 

503 

CONTINUE 

03660 


V0TR a KL*XTR< 1 , 1)-V0 

03670 

C 

URITE(6,599) TINE ,XTR,V0TR 

03680 


URITE<7,599)TIHE,XTR,U0TR 

03690 


TINE*TI«EHF1 

03700 


CALL STS2< YTR,PHi 1 ,XTR,D1 ,U) 

03710 


VOTR=KL*YTR< 1 , 1 HRS*KLmR<2, 1 )-VO 

03720 

C 

URITE16,599)T1NE,YTR,V0TR 

03730 


URITE<7,599)TIME,YTR,V0TR 

0374C 


IF i NODE .Eu. 1 ) 60 TO 504 

03750 


TINE=TINE+TF2 

03760 


CALL STS2<ZTR,PH12,YTR,D2,U> 

03770 


VO TR S KL*ZTR( 1 f 1 ) -VO 

03780 

C 

URITE(6,599)TINE ,ZTR,V0TR 

03790 


URI rE<7,599)TIHE,ZTR,V0TR 

03800 

504 

CONTINUE 

03810 


IF < Tlrte.GT -TFINAL) GO TO 505 

03820 


IF (TIME.LT.TSUIT) 00 TO 501 

03830 


IF1LTR.EQ.2) GO TO 501 

03840 


IF1N00E.EG.2) 00 TO 506 

03850 


CALL RNCPYIZTR, YTR,4,1) 

03860 

506 

CONTINUE 

03870 


U(1 ,1)=E1SUIT 

03880 


EI-EISUIT 

03890 


OLDTIME=TINE 

03900 


LTR=2 

03910 


00 TO 7 

03920 

505 

CONTINUE 

03930 


0LDTIME=O. 

03940 


LTR-1 

03950 


NTR=2 

03960 


LRESP=0 

03970 


GO TO 7 

03980 

550 

CONTINUE 

03990 


NTR=1 

04000 


IF(LFREQ.EO.O) GO TO 150 

04010 


CALL GANM2(GAH,T0N, 1F1,X,U> 

01020 


URITE(6,75) < GAN <1,1 ), 1=1,4) 

04030 

75 

FORMAT </*GAN=*/4<G15.4/>) 

04040 

6V 

CALL FRE02 (PSI ,6AN,H, THETAO ,THETAF,DEL1HET,E1 , VO) 

04050 


REAIK5,FRPARA«) 

04060 


IFUHETAF .Ett.O.)GO TO 149 

04070 


URI TE<6,FRPARAN) 

04080 


GO fO 69 

04090 

149 

CONTINUE 

04100 


LF REQ=0 

04110 

150 

CUNI1NUE 

04120 


IF(LFE.EO.I) GO 10 160 
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i wi% mMm—,. 


m 


04160 

04140 

04130 
04160 
041/0 
041 BO 
041 yo 
04200 
04210 
04220 
04260 
04240 
04*30 
04260 
042/0 
04200 
04 2 VO 
04600 
04610 
04320 
04660 
04640 
04330 
04360 
043/0 
0*300 
043V0 
04400 
0441 0 
04420 
04430 
04440 
04430 
04460 
044/0 
04480 
044V0 
04500 
04510 
04520 
04530 
04540 
04530 
04360 
045/0 
04380 
O43V0 
04600 
04610 
04620 
04630 


18V 


160 

200 


156 

188 

161 

201 


600 


IHLPEAK.EU.O) tiU IU 200 
00 152 1«1 ,4 

xmi'i>"X<i f n 

EI'EISWU 

UU,1>»U 

LPb=1 

U R IT E ( 6 )HV) 

FORMAT <ix,'*SET UP El STEP input*) 

60 10 7 

CALL QUSN2<P$1,X1P,NK) 

CONTINUE 
LPL’AKbLPL*0 
EI&0LDE1 
u< i f n*Ei 

1MLKL.LU.1) 6U 10 161 
IKLUAD.LG.O) 80 IU 201 
KL-KLUWl I 
Ul*1 

DO 133 1*1,4 

xfpu»i>*xu,i> 

UR1TEU,188> 

FORMAT UX,*8ET UP RL LOAD CHANGE*) 
GO TO 4 

CALL QV8N2(P81,XFP,NK) 

CONTINUE 

LUAUbLRLbO 

KL'OLDRL 

1F1LRTL.EU.0) GO TO 600 

PR AN ( NRL ) -PR AH ( NHL ) WHAN 

IMPRAIUNNU.GI.PRAMF) 80 TO 600 

LRTL-2 

00 TO 3 

CONTINUE 

GO TO 400 

END 


*itiM>t**t*t*t*t*****#*#*t*4t*****#**tt!ti»********t*#****it 


SUBROUIINE QVSH2(PSl,XFP,NK) 

DIMENSION PSI <4,4 ),XFP(4, 1 ) ,DELXP<4, 1 ) , TVEC(4, 1 ) 
C0NN0N/STATE/X<4,1),Y<4,1>,Z(4,1),U<4,1) 
eOHHUN/EXlPAR/NlT,£PS,NTERHS,Nn,TP,TF,LDUi¥,El,W)DE,XHU 
DATA R$, CO/. 013,6. E-4/ 

6=RS*C0/TP 
DO 10 1*1,4 

10 DLLXPU ,1 )»Xf P( i r 1 > —X < 1 , 1 ) 

BEUM>#8tlXP(1,1 H0*DELXP<1 ,1) 

DO 30 NN*1,NK 

UNITE <6, 12) NN,DELXP,DLLVO 
UR HE 13, 12) NN,DELXP,DELOO 

12 F0RHATU3,S012.6) 

Call RNMUU fVEC,Pb'l,D|LXP,4,4,1) 

8U.V0* I OLC < 1 , 1)40* < I VtC< 1 , 1 )- DELXP < 1 , »)) 
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04640 
04650 
04660 
04670 
04680 
04690 
04700 
04710 
04720 
04730 
04740 
04750 
04760 
04770 
04780 
04790 
04800 
04810 
04820 
04830 
04840 
04850 
04860 
04870 
04880 
04890 
04900 
04910 
04920 
04930 
04940 
04950 
04960 
04970 
04980 
04990 
05000 
05010 
05020 
05030 
05040 
05050 
05060 
05070 
05080 
05090 
05100 
05110 
05120 
Obi 30 
05140 


00 14 1*1,4 

14 DCUPU'tMVECU'l > 

30 CONTINUE 
RETURN 
END 

***•«*•:»» ***»»*•'.••**»»**:**** *«!t****«*****». »**'«*>»•***** 

FUNCTION ZE IA2(T,X,U) 

DINENS10N PH11(4,4),D1(4,4),X(4,1),U(4,1) 

COMMON /PAR AM/ FI (4,4),P2(4,4),F3<4,4),01 (4,4), 

XG2( 4,4) ,03(4,4) 

COMMON/tXIPAR/Nl! ,bPS,NTERNS,NI I, TP,TF,LDUTY,ET ,MODE,XNU 
CALL PHIM2(T,Ft ,PH11 ) 

CALL DMAT2( T,F1 ,G1 ,PHI1 ,D1 ) 

ZETA2='“ET*PH11 (4,1 )*X( 1 , 1 ) ♦PHI 1 (4, 2 )*X(2, t H 
XPHI 1(4, 3 )4X(3,1)4X(4, 1)401(4, 1)40 (1,1)+ 

XD1 (4,2)*U( 2, 1 ) + D1 (4,3)*U(3, 1 ) 

RETURN 

END 

*6#4**6;*'*6**sM!p4 i** 1 **!** 

SUBROUTINE FREQ2(PS1 ,DVEC,H,TMETAO, THEfAF,0ELTHET,EI ? UO) 
DIMENSION PS1 < 4,4) , D0EC(4, 1 ) ,H<4 ) 

DIMENSION A(4,4),AINV(4,4),8(4,4),U(4,4),V<4,4), IENP1 (4,4) 
DIMENSION I EMP2<4,4 ) , TVEC1 (4, 1 ) , TVEC2<4, 1 ) 
COMMON/EXTPAR/NIT,EPS,NTERMS,NlT,TP,rF f LDUTY,ET,NODE,XHU 
DEGRAD=180./J. 141592? 

RADDEG*» ./DEGRAD 
1NETA*THETA0-DELTHE1 
DO 2 1 = 1,4 
DO 2 J=1 ,4 
2 8( 1, J)=0, 

C URI!E(4,59)U,M0DE 

59 F ORNA T ( AUD 10SUSCEP TIB I L I T Y* r ♦ EI=*,F6.2 f * NODE**, 12) 

MR 1 1 E < 6 , 1 ) El 
1 F0RMAF(//*E1 B *,E12.6/, 

X * I HE TA FREQ (HZ ) DBEL*,5X,*G*, 11 X,*RE04, 1 OX, *1NG*, 

X 6X,*PHASE*> 

5 CONTINUE 

THETA= THETA+DELTHE T 
THETaRADDEG* THETA 
FRE=THET/<6.2831853*TP) 

RX=C08(TMET) 

RY*SIN( THET ) 

DO 12 1* ) , 4 
DO 10 J= 1 , 4 
10 AU, J) = -PSI (1 ,J) 

A(I f I)*Aa.I)+RX 
12 DU,I)kRY 

IF ( ABS (RY ) . L I . 1 .t“1 0) GO TO 25 
RY 10=1 ./NY 

CALL KMMUIJ IEMP1 , A, A, 4, 4, 4) 

CALL KN!;iLNUENP2,KMV, TEMPI ,4,4) 
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O5i5o 


DO 14 1*1,4 

05160 

14 

ICHP2(l,11«ltHP2( 1,1)681 

051/0 


UHL KN1NV(V, TEHP2,4) 

05160 


CALL RHMUL(U,A,V,4 f 4,4> 

05190 


DO 16 1*1,4 

05200 


DO 16 J*|,4 

05210 


U<I,J)*KY1V*UU,J) 

05220 

16 

M<I,J)*-V<1,J) 

0S2/J0 


60 TO 50 

05240 

25 

CALL KNINV(A1NV,A,4) 

05250 


DO 30 1^1 ,4 

05260 


DO 30 J*1 ,4 

05220 

30 

YEMP1(1,J)*AIN(MI,J)4RY>«2 

05260 


CALL NNAODI IEHP2,A, TEhP 1 ,4,4) 

05290 


CALL RN1NV(U, IENP2,4) 

05300 


CALL RNNUL ( V , A IN9 , U , 4 , 4 , 4 ) 

05310 


DO 34 1*1,4 

05320 


DO 34 J*1 ,4 

05330 

34 

VU r J>*-RY*UU,J) 

05340 

50 

CON 1 1 NUt 

05350 


CALL KHMUL( 1VEC1 ,U,OVEC, 4,4,1 ) 

05360 


CALL RHNUU TVEC2,U,U9EC,4,4,1 ) 

05370 


GRE=GIH=0. 

05360 


DO 55 1*1,4 

05390 


8KE‘ b GKI6M(1 )*TVEC1 < 1, 1 ) 

05400 

55 

G1N B G,1H4HU )*TVE'C2( 1,1) 

05410 


G*S()Rr<GRE**24GIN**2> 

05420 


DDEL=20.*ALOG10(U4E1/V0) 

05430 


PHASE~DEGRAU4AIAN2(G1R,GRE) 

05440 


OKI IE (6 ,60) THETA, EKE, D»£L,G,GRE, GIN, PHASE 

05450 


OR 11 E ( 4 , 58 ) ERE , DBIEL , PHASE’ 

05460 

58 

E‘0RNAT(G15.4,2E12.4) 

05420 

60 

F 0 R N A 1 < E 6 , 2 , E 1 2 . 4 , E 9 . 2 , 3E 1 2 . 4 , F 9 . 2 ) 

05480 


IF UHETA.LT. TMETAE-0.54DEL! MET) GO TO 5 

05490 

100 

CONTINUE 

05500 


NbtURN 

05510 


END 

05520 

**4t4*t**t!M'4***<44iM»«4*:t**t44*'4#4*itM*4**M6s»»6M**** 

05530 


SUBROUTINE PHIN2U ,E ,PH1 ) 

05540 


DINENS10N PI (4,4) ,P(4 ,4 >,F'HI(4,4) ,PA(4,4) ,P2<4,4 ) ,F<4,4) 

05550 


CONNON/EXTPAR2N1T,EPS,NTERNS,NIT,TP,TF,LDUTY,ET,NODE,XNU 

05560 


CALL RNSCLRtP? ,T,E,4, 4) 

05520 


CALL RNCPT ( PHI, PI ,4,4) 

05580 


DO 160 1=1,4 

05590 

160 

PHIU,l)*P1(l,lHl , 

05600 


CALL RNCPT (P, PI, 4, 4) 

05610 


PO 131 N= 1 , N 1 ERAS 

05620 


N=N41 

05630 


A-WN 

05640 


CALL RN15CLK(PA.A.P1,4,4? 

05650 


CALL RNNUL ( P2 ,PA . P , 4 , 4 , 4 ) 
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05660 
05670 
05660 
O56V0 
Q5?00 
05? 10 
05720 
05730 
05740 
05750 
05760 
05770 
05780 
05790 
05800 
05610 
05820 
05830 
05840 
08850 
05660 
05870 
05880 
05890 
05900 
05910 
05920 
05930 
05940 
05950 
05960 
05970 
05980 
05990 
06000 
06010 
06020 
06030 
06040 
06050 
06060 
06070 
06080 
06090 
06100 
06110 
06120 
06130 
06140 
06150 
06160 


I B WW W fe 


CALL RMCPY(I',P2,4,4> 

CALL KrtAO0 |, ,PHi ? PHI f P,4,4 ) 

80 132 1 = 7 ,4 
DO 132 J* 1 ,4 

132 ANORN*ANORM4ABS<F(1 ,J)) 

If < ANOKA. LI. EPS) 60 TO 133 
131 CONTINUE 

133 RETURN 
tND 

t,*:M;M****4*****:t**«4*:**»«******»***»******iM**»«*«*«* 

SU8R0UT IKE 0HA12(T,F,G,PHI,0) 

DIMENSION TEMPI <4>,4) TEMP2(4,4) ,80<4(,4> ,82(4,4) ,UM<4,4>, 
XU (4, 4), M. 4, 4), 6(4, 4), 6(4, 4) ,PMI (4, 4), 0(4, 4) 
CONHON/EXrPAK/Wn,EPS,NTERNS,Mrr,TP,TF,L8UTY,ET,HODE,XMU 
BT* T/rtlT 
DTK-T/HI T 
DT 1 = DT 72 
80 136 1*1,4 
80 136 3*1,4 
136 80(1, J)*0. 

00 137 1 = 1,4 

13? «QU,i)*8ou,mon 

CALL PHIM2(“T,F,82) 

CALL KMSCLR(UN,DT1 ,82,4,4) 

CALL RMABD<W,80,UN,4,4) 

K=«n-i 

80 141 L=I,K 

CALL PHIM2(-DT,F, TEMPI ) 

CALL RMSCLKT IEMF2, DTK , TEMP 1 , 4 , 4 > 

CALL NMADD(U,U,TEMP2,4,4) 

DT=DT+8TK 
141 CONTINUE 

CALL RAHUL (8, PH 1 ,8, 4, 4, 4) 

CALL RNNUL(D,B,G,4,4,4) 

RETURN 

END 

4t444*4*4*4*4*4*4*4$4*4*4*4*4*44*4****44*4*4t4*4*****4 

SUBROUTINE STATE2< TON, TF1 ) 

DIMENSION PH II <4, 4 ) ,|-'HI2(4,4) ,PHI3(4,4) ,81 (4,41,82(4,4), 
X 83 ( 4,4) , TEMPI < 4,4) ,TEMP2( 4,4) ,PH 1(4,4) ,U(4,4),VU<4, 1 ) 
DIMENSION 8( 4, 1 ) , TV1 ( 4, 1 ) , TV2 <4, 1 ) 

COMMON/PARAM/ Ft (4,4),P2(4,4),F3(4,4) ,61 (4,4) ,62(4,4), 
XG3<4,4) 

COMMON/EX IPAR7NIT, EPS, NTERNS, MIT, TP, TF,LDUTY,ET,rt08E,XMU 
COMMON/S TA1E/X< 4, 1 ),Y(4,1),2(4,1),U<4,1) 

CALL PHIN2(T0N,F1 ,PHI1 ) 

CALL DMAT2T (0N,F1 ,61 ,PHI I ,81 ) 

CALL PHIM2(TF1 ,F2,PHI2) 

CALL DMAT2( TFT ,F2,G2,PH f 2,D2) 

CALL RMMUL(PHI ,PH12,PHI1 ,4,4,4) 

CALL RMMUL ( IENP1 ,PHI2,D1 ,4,4,4) 
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061/0 

06100 

061 VO 
06200 
06210 
06220 

062 JO 
06240 
06250 
06260 
062/0 
0628C 
06290 
06300 
06310 
06320 
06330 
0,6340 
06350 
06360 
06370 
06380 
063V0 
06400 
06410 
06420 
064 JO 
06440 
06450 
06460 
06470 
06480 
06490 
06500 
O6510 
06520 
06530 
06540 
06550 
06560 
06570 
06580 
06590 
06600 
06610 
06620 
06630 
06640 
06650 
06660 
06670 


CALL RNAOBIV, TEMPI, 02,4,4) 
lH800C.eU.11 GO 10 15 
IFILDUTY.EU. 1 ) GO TO 31 
TF2-l>-rF1 
00 10 32 

31 CONTINUE 
TF2*TP~T0N~iM 

32 CONI 1 NOE 

CALC PHlN2<rf2,F3,PHl3) 

CALC PNAT2(TF2,F3,G3,PMI3,D3) 

CALL RMNUL<ltNP2»PMl3,PMi,4,4,4) 

CALL RNCPY1PHI ,TEMP2,4,4) 

CALL RNNUU TEMPI ,PNl3>M,M> 

CALL KNAD0(U, TEMPI ,03,4,4) 

15 CONUNUE 

CALL RHMUL (VU,V,ll,4,4, 1 ) 

DEN * <l.-PHl(l,im<1,-PHl<2,2)) - PMI<t,2)*fHl<7,D 
GET a DEN * <1. - PHI (3,3) ) 

X( 1 , I )=( < 1 .-PHI ( 2,2) )*UU< 1 , t ) ♦ PHI (I ,2)*VU<2,1 ))/0EN 
X(3, 1 )«( (PHI (2» 1 )*PH1 (3,2)4PNI(3, 1)4(1 .-PMI(2,2)))*VU( 1,1) 
X 4 (PHI (3,2)*(1 , -PHI ( 1 , 1 ) )4PMK 1 ,2)«PH1 (3, | )) 600(2,1) )/0E I 
X *VU(3, 1 )/( 1 ,-PHl(3{,3) ) 

IP (HOOF .£0.2) GO TO 25 

X (2,1 )-( PHI (2, 1 )*VU( 1 , 1 )4( 1 .-PHI (1,1) )*VU(2,1 ))/l)€N 
GO 10 24 
25 X(2, 1 )=0.0 
24 CONIINUE 

X(4,1)=EHPHlt<4,t)*X(1,1)-PHlK4,2)6)U2,1)- 
ZPHI1(4,3)*X(3,1 >-01(4,1 )*U( 1,1 )-D1 (4, 3)40(3, 1)- 
201(4,2)40(2,1) 

CALL STS2(«,PHI,X,V,U) 

CALL SIS2( Y,PH11 ,X,D1.,U) 

IF(MOOE.EU.T) GO TO 23 
CALL ST S2< 2, PHI 2, Y ,1)2, U) 

2(2,1 )=0. 

23 CONTINUE 

) URITH 6, V9 > ( (PH1 1 ( 1 , J) , J-1 ,4) , 1*1 ,4 ) 

) WR1TE(6, 98) ( (01 (I , J ) , J* 1 ,4) ,1=1 ,4 ) 

; URHE<6,97 ) ( (PHI2( I, J), J=1 , 4) , 1=1 ,4 ) 

) URITH 6, 96 ) ( ( 02 ( 1 , J ) , J* 1 , 4) , 1-1 ,4 ) 

If ( MODE. EB. 1 )G0 IQ 35 
: URITE (6 ,89) ( (PHI3( 1 , J) , J-1 ,4 ) , 1*1 ,4) 

: UR1TE(6,88 ) < ( 03< 1, J) , J S 1 ,4 ) ,1*1 ,4) 

35 CONTI NOE 

) UR1TE(6 ,95) ( (PHI ( 1 , J) * J a 1 ,4) , 1=1 ,4) 
UR11t(6,94)((0(l,J),J-1,4),l=1.4) 

; V9 F0RHAr(/*PH11 a *,/4(4615.4/)/) 

) 98 FORMAT (/4B1 *4 f /4 (4G15.4/ )/ ) 

) 9/ P ORNAT ( / 4PH 1 2 , / 4 ( 40 1 5 . 4/ ) / ) 

; 96 F0RHAK/*l)2=*,/4<4Ul5.4O/) 

89 FORMAT (/*PH 13*4, /4( 4015,4/ )/ ) 
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04680 
06690 
06700 
06710 
04720 
047 JO 
06760 
O67t>0 
04760 
04770 
06760 
04790 
06800 
06610 
04820 
06830 
06640 
06850 
06860 
06870 
06860 
06890 
06900 
06910 
06920 
04930 
04940 
04950 
06960 
069/0 
06960 
04990 
07000 
07010 
07020 
07030 
07040 
07050 
07040 
07070 
07080 
07090 
07100 
07110 
07120 
07130 
07140 
07150 
07160 
07170 
07180 


C 88 F0KNAH/*DJ**, 74(4015. 4/)/) 

C V5 HM8AH*m**,/4<4G15.4/)) 

C 94 F0K«Ar<6V*V4<4G15.4/>> 

RETURN 

KNB 

*:»*••»* **»4'***M*:M*******»4*»*«*M*iM*»***«**»«*»««* 

SUBROUTINE STS2(U2,PHI ,Ul ,D,U) 

HI HENS' I ON PMK4,4>,W1(4,1),U2(4,1),IM4,4),U(4,|>, 

XTEHPY1 (4,1 ) ,TEHPY2(4,1 ) 

CALL RNNOLi TENPT1 ,PN1 ,U 1 ,4, 4, 1 ) 

CALL R«HUL(TENPY2,D,U,4,4,1) 

CALL RHAD1MU2,1£NPY 1 ,TEHPY2,4, 1 ) 

RETURN 

END 

»;»***.'*»*** ****:«*«*:»*** ****»**)»****4****4**«4r<M>M**» 

SUBROUTINE PSIH2(PSl,T0N, 1F1 ,X,U) 

DJHLNSION X(4, 1 ) ,FBAR0<4, 1 ) ,FBAR<4, I ) ,PSI (4,4 ) , 

XU( 4, 1 ) , Y ( 4, 1 ) ,PH1 1 ( 4,4 ) ,D1 < 4,4) , 

X TEHP Y 1 ( 4 , 1 ) , TfertPY 2 ( 4 , 1 ) , DEL TX < 4 , 1 ) 

COHN0N/PARAN/F1 (4 ,4 ) ,K2 <4 ,4 ) , F3<4, 4) ,G1 (4,4) , 

X62(4, 4) ,63(4,4) 

CQHhUN/tXTPAR/NIT ,£PS ,NTERHS,HIT,TP, TF, L DOT Y,ET, NODE, XNU 

V-TON^TON 

VTF1MF1 

DELT0N=XHU*T0N 

DEL TF 1 =XN04TF1 

DO 71 1=1,4 

71 DEL I X ( 1 , 1 MXNU*A13S<X<1,H) 

CALL FFUNC2(VTON,OTF 1 ,X,U,F8AR0) 

C PRINT 5 1 , F BARO 

C 51 FORNAT(*FBARO~* ,G1S.4/3(6X,G15.4/) ) 

DO 68 J*1 , 4 

C IF ( J.NE.2) GO TO 54 

C IF(N0DE.E0.2) GO fU 72 

54 X < J , 1 > — X < J , 1 )+DEL)X( J, 1 ) 

I T = 0 

SC1-ZETA2(0T0N,X,U) 

67 D2EIA2=<2£IA2<UT0N+DLLT0N,X,U)-SC1)/DELT0N 
I T = I T 1 

UTON=V70N-SC1/I)2E!A2 

SC1 s 2ETA2(OTON,X,U) 

IF < ABS (SCt > .LT .EPS) GO TO 64 
IFdT.LT.Nl I ) GO TO 67 
PRINT 6 1.1 1, SCI 

61 FGRNAT (*NAX ITERATION ON TON, II - 13,* SCI =* ,t 1 2.6/) 

GO TO 70 

64 IF(N0DE.E0.2) GO TO 81 
VTF1=TP*OTON 
IF (LDUTY .EG. 2) VTF1-TF 
GO TO 65 
81 CON II NHL 
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o/i yo 
0/200 
0/210 
07220 
072 JO 
07240 
07250 
07200 
07270 
C720O 
072V0 
07J00 
07JIO 
07320 
07330 
07340 
07350 
07330 
0?a\70 
0735*0 
O73V0 
07400 
07410 
07420 
074 JO 
07440 
07450 
07460 
07470 
07480 
O74V0 
07500 
07510 
07520 
07530 
07540 
07550 
07560 
07570 
07580 
O75V0 
07600 
07610 
07620 
07630 
07640 
07650 
07660 
07670 
07680 
077, VO 


CALL PHlimVIUN,H,PMlt) 

CALL DMA 12 { V IQN,f 1 ,Ut ,PH11 ,01 ) 

CALL $18211, PH11,X, 1)1, U) 

DEL TX 12,1 )«XHU*ABS(1f<2,l )) 

IT S 0 

Bi«BnA!2«vrn,t,u) 

63 DB«<0HAT2<VTFimLTFt,Y,U)-BU/DELTFI 
!T*mi 

VTF1*VTF1-B17DB 
B1*BMAT2(VTF1 , Y,U) 

1FIABS1B1).LT,1 ,E-64EPS) GO TO 65 
IF 1 11 .U .AIT) 60 10 63 
PK1N1 66,11,01 

66 F0NNA1 (*NAX ITERATION ON I F 1 . U** f lJ,* SCt**,Et2,6/) 

60 TO 70 

65 CALL F‘FUMC2( VTON,V IF 1,X f U,FBAN) 

C PRINT 53,OTON,VTF1 

C 53 FORMA I < *0 1 0N s **6l 5. 4/*VTF 1=4,615.47) 

DO 6V 1*1,4 

6V PS l U, J)*(F1)AK< 1, 1 )"FBARO(1, 1 )) /HEL IX <J, I ) 

C PRINT 52,FDAR 

C 52 FORMAT (*FBAR=*,U15.4/3<5X,GI5.4/ ) ) 

X(J f l)=X(v» } 1)“PELTXU,1) 

60 10 68 
72 00 74 1*1,4 
74 PSJ(J,2)sO. 

68 CONTINUE 
70 RETURN 
END 

*************** ***************»********, **;{i**«*4l»tjtt*** 

SUBROUTINE FFUNC2(T0N, TF1 ,X,U,F) 

DIMENSION IENP1 (4,4), l'CNP2(4,4),PHIt <4, 4), PHI 2(4,4), 
XPHIJ1 4,4) ,D1 14,4) ,02(4,4) , D3( 4, 4 ) ,PHI (4 , 4 ) ,V( 4,4) , 

Xf TEMPI < 4,1 ) , FTErtP2< 4, 1 > ,F<4,1 >,X<4,1 ),U<4, 1) 

COMMON/P ARAM/FI (4,4) ,F2< 4,4) ,FJ< 4, 4),61 (4,4) ,62(4,4) , 
X63(4,4) 

CONNON/EX fPAR/Nn,EPS,NT£RNS,NIT, TP,TF,LOUTY,E'r f rtODE f XNU 
CALL PN1M2 1 TON, Ft ,PN1 1 ) 

CALL PN1N2<TP1,F2,PH12) 

CALL DNAT2(T0N, FI, 01, PHI1, 01) 

CALL DMAT21 TFt ,F2,fi2,PH12,D2) 

CALL RMNUL ( PH I , PH 1 2 , PH1 1 , 4 , 4 , 4 ) 

CALL RHHUU IENP1 ,PH12,D1 ,4,4,4) 

CALL RHADD(V, TEMPI ,D2, 4,4) 

IFIMODE.EQ. 1 ) GO 10 15 
IF TLUUTY.til.l ) GO IU 21 
TF2=TF-TF1 
GO TO 22 

21 CONTI HUE 

IF 2= IP -IF 1 -TUN 

22 CUNfINUE 
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0/700 
07710 
07720 
07730 
07740 
07750 
07760 
07770 
07780 
07790 
07800 
078 tO 
07820 
07830 
07840 
07850 
07860 
07870 
07880 
07890 
07900 
07910 
07920 
07930 
07940 
07950 
07960 
07970 
07980 
07990 
08000 
08010 
08020 
08030 
08040 
08050 
08060 
08070 
08080 
08090 
08100 
08110 
08120 
08130 
08140 
08150 
08160 
08170 
08180 
08190 
08200 


CALL KM 1112 ( IF2,P3,PH13) 

CALL 0MAI2( 0 2, F3 f 63, PMI3, 03 ) 

CALL KMMULUCMP2 > PH13,hl l «,9,4,4) 

CALL RNCPY<PMI,I£MP2,4,4> 

CALL RMNUUTENP1 ,PHI3, V,4, 4,4) 

CALL RMADD(0, TEMPI ,03,4,4) 

15 CONTINUE 

CALL STS2{F,PHI,X,V,U) 

IF < MODE. tfl. 1)00 TO 2 
F(2, 1 )*0r 
2 RETURN 
END 

4444 * 444444 * 44444 * 44444444444 $ 4444444444444444*4444444 
SUBROUTINE GAMM2(GAN, TON, TF1 ,X,U) 

DIMENSION X(4, 1) ,U<4, 1 ) ,FBAR0(4, 1 ) ,FBAR(4, I ) ,0AM (4, 1 ) , 
XPH1 1 (4,4) ,01 (4,4) , TEMP Y1 <4,1 ) ,TEMPY2(4, 1 ) ,Y <4,1 ) 

COMMON/P ARAM/FI <4,4),F2(4,4),F3(4,4),U1<4,4), 

X82<4, 4) ,63(4,4) 

COrtMON/EXTPAR/NIf, EPS, NTERNS.NIT, TP, TF, LDUTY,ET, MODE, XMU 

UTON=TON 

V T F 1 8 T F 1 

I)ELTON*XNU*TON 

DEirrt«XMU*TF1 

Oa#XHU*ABS<U<1,1)) 

CALc FFUNC2<VT0N,U'!F1,X,U,FBAR0) 

U( 1 , 1 )=U( 1 , 1 )+DELU 
IT«0 

SCI =2ETA2(UT0N,X,U) 

67 DZETA2*(2ETA2( VT0N+DELT0N,X,U)-SC1 )/DELTON 
IT=IT+1 

VT0«*VT0N-SC1/BZETA2 
SC1 s ZETA2(OT0N,X,U) • 

IF ( ABSTSCI ) .LT .EPS ) GQ TO 64 
IFUT.LT.NIT) GO TO 67 
PRINT 61, IT, SCI 

61 FORMAT (*MAX ITERATION ON TON. IT**, 13,* SC1**,E12.67) 

60 TO 70 

64 CALL PHlM2(VfON,F1 ,PHIt ) 

CALL DMAT2(VT0N,F1 ,01 ,PHI1,B1) 

CALL STS2 ( Y , PH1 1 ,X,D1 ,0) 

IT*0 

IF (MODE.EQ . 1 ) GO TO 65 
B1=BMAT2(VTF1 ,V,W) 

63 DB* < BMAT2 ( V TF 1 *0EL IF 1 ,Y,U)-B1 )/DELTF1 
I T = I T+ 1 

0TF1*VTF1-Bt/0B 
B1 =BMAT2(0TF1 , Y,U) 

IF(ASS(B1).LT.1.E-6*EPS) GO TO 65 
IF(IT.LT.NIT) GO TO 63 
PRINT 66,1 T,B1 

66 FORMAT (*MAX ITERATION ON TF1 . 11=*. 13,* SC1**,E12.67) 
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ORIGINAL PAGE 13 
OF POOR QUALITY 


08210 

08220 

08230 

08240 

08250 

08260 

08270 

08280 

08290 

08300 

083(0 

08320 

08330 

08340 

08350 

08360 

08370 

08380 

08390 

08400 

08410 

08420 

08440 

08450 

08460 

08470 

08480 

08490 

08SOO 

08510 

08520 

08530 

08540 

08550 

08560 

08570 

08580 

08590 

08600 

08610 

08620 

08630 

08640 

08650 

08660 

08670 

08680 

08690 

08700 

08710 

08.20 


80 ru 70 

65 CALL FFUNC21 Ml UN,0 IF 1 ,X,U,FBAR) 

00 69 1*1,4 

69 OAHU , 1 ) ■ < FI AR< I , 1 ) -FBARO <1,1 ) ) /DELU 
U<1,1 ) *U< ( , 1 )-DELU 
70 RETURN 
END 

•4«**4********»*4*«***4********«********m**m******** 

SUBNUUlINL XMAT2( TQN,XHAT > 

DIAENS10N PH 11 <4,4),D! <4 ,4 ) ,PM12<4,4) ,02< 4,4) , 

XPH 1 3(4,4) ,03(4,4) 

CONAUN/PARAH/F 1(4,4),F2(4,4),F3(4,4),G1(4,4),02(4,4) f 
Xti3( 4 ,4 > 

COMMON/EX 1PAK/NIT, EPS, KTERMS, MIT, fP,TF,LDUT T,ET ,MUDE,XMU 
COMMON/SI AT£/X( 4, 1),T(4,I),Z(4,1),U(4,1) 

TF1=TP-TQN 

1P(LDUTY.EB.2) TF1='I F 
CALL STATE2( T0N,TF1) 

CALL PMIH2< TF1,F2,PH12) 

CALL DMAT2(TP1,F2,G2,PHI2,D2) 

XMAT=X(4, 1 )-PHI2(4 f 1 )*Y( 1 , T )-pHI2<4 ,<2)*Y(2, 1 )-Y<4, 1 )- 
X PH12(4,3)*Y(3,1)-02(4,2)*U(2,I)-D2(4,4)*U(4,1) 

RETURN 

END 

*:,-.***:»**;, *:»***!**:»***«***:» **************** * 4 *********** 

SUBROUTINE SHAT2(TQN,TF1 ,SNAT,BMAT ) 

DIMENSION PH1 1 (4,4) ,D1 ( 4,4) , 
XPHI2(4,4),D2(4,4),PHI3(4,4),D3(4,4) 

CONHON/PARAN/ FI (4,4) ,F2(4,4) ,F3(4,4),G1 <4 ,4 ) ,02(4,4 ) , 

XG3(4,4) 

CQMMON/tXTPAR/NIT ,EPS,NTERMS,NIT,TP,TF,LDUTY,ET,NOBE,XHU 
COMMON/ ST ATE/ X( 4, 1 ),Y(4,1),2(4,1),U(4,1) 

PTF1*TF 1 

DEL1F1-XHUN-TF1 

CALL STATE2(T0N,TF1 ) 

IT=0 

B1=BNAT2(TF1,Y,U) 

IF( ABS( 81 ) .LT .EPS) GO TO 32 
31 B2-BMAT2( TFHDELTF1 ,r,U) 

DBMAT2-(82-81)/DELfFI 
TF 1 -TF1“B1/0Bv1AT2 
Bl=8MAf2(TF1 ,Y,U) 

IF(A8S(D1).Lf.EPS) GU !U 32 
11*11+1 

IF(IT.Lf.NIT) GU IU 31 
PRINT 33,IT,TF1,B1 

33 FORNAfUMAX, ITERAl ION UN IT**, 13,4 TF1=*,G1b.4,+ B1=*,G15.4/) 
TF 1 -PTF 1 
32 CUNIINUt 

CALL SIA IL2( TON, IF 1 ) 

CALL PH1M2( If 1 ,F2,PHI2) 
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08/30 

08/40 

08/50 

08/40 

087/0 

OB? 80 a 

08/90 

08800 i 

08810 
08820 
08830 
08840 
08850 
08840 
080/ 0 
08800 **H 
06890 
08900 
08910 
08920 
08930 
08940 
08950 
08940 
08970 
08980 
08V90 

C 


CALL OHftl24TFt 

CALL 8182U,Wll2,t,M,M> 

If (LUUtY.ta.1 ) 00 10 21 


1F2-TF-TF1 
GO 10 22 

1 COM riNUi 
TF2*1P~10N~TF1 

2 CONTINUE 

CALL PH1«2<TF2,F3,PH13> 

CALL D«Al2<TF2,f3,03,PH13,D3) 

SHAr«X(4,1)-PH13<4,U*2<t.’ y(2 t) 

X PHl3U f 3>»Z<M>-* (4 » U l3<4 ’ 2 ' ' ' 

BAAl*81 
34 RE TURK 

jk 

FUNCTION &AA12UH ,M> 

DIHEN01ON 

COAAON/PARAN/ FH4 f 4),P2<4 f 4) ? fi^,^f 

*Me*.P AR/Nn f EPS,NrERNSFrtlMP,TF,UU19,EM00E fX HU 

GALL PHIH21 TF1 f F2 f PHl2) 

7 ri'.) UU( 4. 1 ) 


RETURN 

END 
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APPENDIX p: Derivations of Constraints for Boost and Buck-Boost 

Converters 


D.l Basic relationships for Boost converter 
a. Input-output voltage relationship 

Transistor on: Ai^O - ) * current increment in L,. 

E i T on 


Transit:'*.' off: Ai^^(-) » current decrement in 

(E 0- E i> T off 


When in steady state, Ai^(+) - Ai^^(-) 


so 


E.T (E n -E,)T ,, 
i on 0 i' off 


that is E, = E 


0 i T 


off 


b. Peak to peak ripple current through energy storage inductor 


Ai L5 ^ 


E.T 
,i on 


By substituting T Qn from .(A.l) 


into the above equation for Ai^(+) 


Ei(E 0 -Ei) 


we can get *!„<+> - L . T 


2d 


(D.l) 


(D-2) 


(D,3) 
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D .2 Derivations of transistor swi tching loso 
a. Saturation joas 

Examining the current waveform through transistor of Fig. 2.2 
During T on : i q - t + tt^d) 


Saturation loss - ^ 


on 


V .t 1 Q (t)dt 


-2S. x V 
T i at 


From (A.l) we can get 


f 


on 


E o- E i 

E o 


0 


Also the average input current ^ E ^ 

substitute and T into the above equation, we can get 
X on 


Vst< E 0-V 


saturation loss - E E 

1 0 


b. Translator turn-on loss 
Switching waveform during turn on: 



t + (e 0 +v d ) 


(D.4) 

(D.5) 


(D.6) 


(D.7) 

(D.8) 
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T 


Average turn-on power loss * — 
1’ i- 


sr 


v CE (t)ip(t)dt 


1 

T 


t sr 


0 


E 0 + V D' V st 


T 


St 


t+ V V D 


V d 


sr 


dt 



" p o 

VW' 

T s /(B 0 +V„+JV 8t > 

eff E. 
l i 

2L 5 E 0 F J 


6 


0 


*hCM I t - e££ » 


d * Half of the peak-peak ripple through L* 

h% - V 

2l^ Eq F 


(D.9) 


(D.10) 


e,, Transistor turn-off loss 
Switching waveform during turn-off 





a q w 


(r^-4-d) ct “ T sf ) 


-T 


sf 


CE 


E o + d - v s t 
T sf 


+ V 


sr 


(Ddl) 


(D.12) 


Note that transistor current at the moment of turn-off is I^+d 
instead of 1^-d , 




The turn-off power loud » 


T * 

J v < 


T J v CE^ t ^C^ dt 

0 


where I, - 


" 6< E 0 + V 2V st> 


0 

ef fEj 


E i <E o- E i>" 

2L 5 E 0 F 


T ,F 

sf 


(D.13) 


MW 

2 W 


P .3 Derivation of diode switching loss 
a. Diode conduction loss 

Examining the 1^ waveform as shown In Fig. 2.2 
Diode conduction loss 


X i V D 


(T 


T ) 

on' 


W 1 ~ 


V VP 

T ' “ eff E 


0 


(D. 14) 


b. Diode turn-on loss 



ly+d 

*1) " 2T . t (D.15) 

nd 


' E 0 „ 

V D ■ TT (t - T n(l 
nd 


(D.16) 
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P.4 Output filter ESR loss 


Examining the i waveform of Fig. 2.2 
Puring T qn : i C6 - -I Q 


2d 


Pitring T off . i C6 - T — (t - T on ) + (I t - I 0 + d) 


(P.21) 

(P.22) 


on 


P 

cap 


ESR loss 




*06 R 6 dt 


on 


ic 6 (t) d t+i 


l C6 (t)dt 


on 


(P.23) 


P 

cap 


By substituting (A. 21) and (A. 22) into the above Integration formula, 
we can get 


R 6 t( i C6) rras ] " 


E P 2 E 

(1^)0 

E o E o E o 


E i ZfE o- E i> 2 H P o 


2 2 2 
12L 5 EqF 


eff E. 


V 1 

V 




(P.24) 


D .5 Parasitic resistances for L^ t L ^ , L ,. 

R (winding resistance) - (P.25) 

where A - A c (copper cross section area) 

By definition of winding pitch factor F r 

\J 


F C 

F C 


mean length per turn of winding 
core circumference 

& 1 

(Toroidal core with square cross-section area) 


-in- 


(D.26) 


k - p^v5i 

A ci 


80 R i A ci ’ " 0 

The equation for L 1^ can be likewise derived 

R 2 A C2 - ^ pF c* /A 2 N 2 “ 0 
R 5 A C5 " ApF C^5 * 0 


P.6 Operating flux density constraint 

Maximum flux linkage of L,. - L C (AI) - N C <B_,A C ) 

5 5 'max 5 S5 5 ' 


where (AI) ■ 1 . 4- d ■ > _ 

' 'max 1 eff E 


V + E i <E o- E i> 


1 2L 5 V 


P E (E - E 1 

„ 0 , i^O i- M _ . 

eff E . 2L C EJ " N 5 B S5 A 5 


5 0 


that is N C A C * ~ 
5 5 B 


S5 


p o . E f<V E i> 


eff E.^ 2 l 5 E 0 F 


Because L^, do not handle AC ripple current 


so N„A., = 


L 1 P 0 


11 eff E 4 B 


L 2 P 0 


Si 


N 2 A 2 eff 


D.7 Window area constraint 


By definition of vindow fill factor 

w u core window area actually occupied by the core 

* u ** ' 2 

available core window area * Hr 


N 1 A C1 


W 


/Ai 2 

n ( — — =•■) 

J V 2Jl 2 ; 
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(D. 27) 

(D. 20) 

(D. 29) 

( D. 30) 

(D. 31) 

(D.32) 
CD. 33) 


(D.34) 


I 


where - mean magnetic path length 
A^ ■ core cross section area 
h ’/Aj. 

— — - — — ■ radius of window area 


so 


N 1 A C1 


tf.5 


nr, 


w 


likewise , 


N 2 A C2 


n f 


w 


h 5 

2n " 2 

0.5 _ 

2 

2n " 


N e A„'} 0,5 Z 


5 C5 


np, 


w 


_5 
2 II 



D.8 Frequency dependent source EMI constraint 

Required attenuation at switching frequency 

EMI requirement 

Fundamental switching current 


where EMI requirement - / 

Z 1 * ( 2000 ) 


(D,35) 


(D.36) 


(D.37) 


(D.38) 


fS(F) 



Derivation of fundamental switching current component of i L5 


By examining Fig. 

2.2 


During T^: 

i ™ t + (I. - d) 

L5 T ' i 

(D.39) 

on 


During 

± L5 ■ i-T d ' 

(D.40) 
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where d 


vvv 

2L 5 V 


I , *» 


0 


1 eff Ej 


By Fourier series expansion: 


00 


i T c 58 C n + l A, COS k 0 ) o t + l B. cos kw 0 t. 
LJ 0 k=l A k-1 


(D.41) 


Only the first harmonics are needed in EMI calculation, the higher 
order terms can be neglected. 


A - ~ 
1 T 


T T 

on 2 


i L5 (t) COS U) Q t dt + f j i L5 (t) 8in V- dc (D,A2) 


B 


0 T 

on 

T T 

• on 2 ' 


1 T 


0 


l L5 (t) sin w Q t dt + j i L5 (t) sin a) 0 t dt (D,43) 

T 


on 


Substitute (A. 39) and (A. 40) into the above equation and integrate, 
one can get 


E 


A 


0 


1 ?jr l 5 f 


- cos 


MCEq-E^' 


-E, 


0 


2h 2 l 5 f b 2 l 5 f 


sin 


n(E 0 -E i ) 


(D.44) 


p. 9 Output Ripple Voltage Constraints 

The peak-to-peak output-voltage ripple is caused by two components: 
the capacitive component due to the ampere-second processed by C and 

resistive component due to the ESR Rg of C. It Can be shown that the 
constraint concerning the sum of these two components can be expressed as 
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(D.A5) 


P 0 D 


V Rip" (1 i + d) R 6 * ’2E 0 C 6 F 


where D - 


T on E 0- E i 
T " E 0 


Substituting 1^ - E and (A. 3) into (A. 45) 


RIP 


0 + E i (E o- E i> 


eff E i 2L 5 E q F 


R 6 + 2 


VW 


2E 0 C 6 F 


V A-M 


. r p q 4. E i ( v E i ) i 

L effE i E 0 2L 5 E q 2 F J 


R 6 + 


V e q- e i> 

2E 0 3c 6 F 


(D.46) 


(D.47) 


/APPENDIX E: Boost Converter Computer List 

In this appendix an complete computer list Cor the Boost Converter 


Is given for the user's reference. Before the user implements his own 


problem In the computer code, he must decide the design unknown variables. 

For the Boost Converter the variable array Is shown In the following: 

x(l) * 

x(2) “ 

x(3) v'X't 

x(4) = /K, 

x(5> = yr 2 

x(6) - /a c2 

x(7) - 

x(8) = eff 


x(9) 

- c 3 

x(10) 

= c 4 

x(ll) 

= Z 1 

x(12) 

“ Z 2 

x(13) 

" R 1 

x(14) 

~ r 2 

x(15) 

" R 3 

x(16) 

“ R 5 

x(17) 


x(18) 

- ^ r 5 

x(19) 

c5 

x(20) 

- s 

x(21) 

= C 6 

x(22) 

* Z 5 


* 

In the process of optimization some 
variables take on negative values. 

In order to avoid the square root of 
negative numbers, certain variables are 
presented in this form in the program. 
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After the variable array la chosen, the user can start to simplify the 
constraints and choose the constant terms of the constraints, and then take 
the first derivatives of all the constraints end objective function with respect 
to the variables. Then he can put all this information in computer code 
ready to use in the program^ The constant terms, constraint equations and 
their first derivatives are shown as follows: 


E.l Constant Terms 


P I« 3 - 1415 92654 
XM1»4.*FC*DC 
XM2»4.*R0*FC 
XH3«1 ./<2.*PI) 

XM4 * PO/EI 

XM5-SQRTC1./FW) 

XM6»$QRT<1./CPUFW>) 

XM7«P0/E0 

XM8=CEC-EI)/cO 

XM9*EI*(EG-EI)/(2#e£Q«FR) 

XM10«FR*(E04V04i.«VST)/6. 

XM11*TSF4TSR 


XM12 = 
X M 1 3 = 
XMIh* 
X 1 5 * 
X M 1 6 = 
X M 1 7 « 
X M 1 3 * 
X X 1 9 * 
X M 2 0 s 
X M 2 1 « 
X M2 2 = 
XM2 3 = 
XM24? 
X M2 5 * 
X M2 
XM2 
XM2 
RCKCK 


TSF-TS 
T N D ♦ 7 F 
7MC-TF 
EG«FP/ 
EI/EC 
8G.eE I 

FR/PE2 

l./EC 

l./EI 

( 1 • ♦ r R 

(S*FR) 

S/CSCR 

rR*FR* 

6*XM2< 

7 *4 . 0* 

e = 2.o* 

=RCK*C 


0 ♦ 3 • >!< T R E 
C-3.*TRE 

12 . 

*.0022*5QRT(FR) 
P E 2 


>pR/2000*>i«2)*(EO#$IN<f'I*XM8/XMlE>/PI**2)**2 
TCI •♦FR<rFR/2°00.e>}i2)<‘E0/Plee2<«SlN(9ie< EO-ED/EI ) ) 

X M Z A 
♦ FR 

PI*PI*fR*PR 

PI*FR/PE2 

K 
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. i 


g , 2 Objective function and constraint equation 

1000 V 1 ■ D t * ( X 1 « X 1 # X 1 1 ♦ X 4 * X 4 * X i 2 ♦ X 1 7 * X 1 7 * X 2 2 ) 

Y2«XM1*(X3*X3»‘X2*X 2*X1 ♦ X 6*X6*X5*X5*X4*X 1 ?*X 1 9* X l 8*X 1 8*X 1 7 > 

Y3*GK3*X34CK4*X10+CK6*X21 

Y4»PC*<1./X6-1. )/KH*PG/x8/K$ 

F« Y1*Y2*V3*Y4 
F»F/F SCAL 

PIF«(XM4/X8)**2*(X13+X14) 

PaBCXH4*XM8/X8)*C VST*. l*V8E)«XP.10*(XM4*XMil/X8«XM9*Xfll2/X20) 
PD«XM7*V0/X8*XM15»*(XN4*XM1 3/X8*XM94XM14/X20) . 

POF«<X*4/X8>**24X16*XM9*XM9*<X16«' , OCKCK*XM16/X21>/C3 .*X20*X20>*C 
1RCKCK/X21>«<XH16*XK74>X‘24XM7«XM4/X8/X8-2**XM7*XM7/Xe> 
2*XM17*XM8*X22/X18/Xi8 
7 CC1)»PC*C1./X8-1.)-PIF-P2-PR«PCF 

6 CC2)«X13#X3*X3*>XM2*X1*X2*X2 

12 CC35"X14*X6*X6-XM2*X5*X5*X4 

9 CC4)»X9*X9 4X15<m5*X9*X<3/'X7~PEl#*2>KX10*X;i04CXi5*X15*X9/X7># 

1 (X »-XiO#XHie>**2) 

C<5>*Xl#Y14X2*X2-X7*XM4/<X8*8Si> 

13 CC6)*X4#X4*X5#X5-X7*XM4/( X8#5$2#P62) 

C(7 WM6#X3*X2-Xl-l*XH34*5*Xi 
C(8)«XK$#X6*XS*X12*XM3* . S*X4 

2 C($).*X1 7X»X17';<XiS«X13-(X20/B$S)*<XM4/X8*XM9/X20) 

CC10>*XP6#X19#X1S-X22*XF'34*S*X17 

CCll) = VR-CXM4/X8 ♦ X P 9/ X2 0 )mRCKCK/ X 21 / 60- XM7X'XM8/ 2/FR/ X2 1 / EO 
C< 12 )*X16*X19#X19-XM2*X18*X1 9^X17 
CC13)«-1.04XM26*XM 2 7*X7*X 1 04X20*< XP2 3*X7/X 15-1.0) 

C(14)«.969-X8 
11 C(1S)*RT-X1 3-X14 

0(16)3 XI 0-1. £-6 
C(17)»X9 - l.E-6 


E • 3 First derivatives of the constraints and the objective function 

(1) Derivatives of objective function 

G<1 iv2#Xl*X*l#X3#X3#X2#X2 

G(2)=XPi*X3*X3#Xl*2*X2 

G(3)*XP1#X2*X2*X1*2*X3 

G < 4 ) * D I #X 1 2* 2*X 4 ♦ X N 1 *X 6* X 6* X 5#X 5 

G<5)*XM1#X6*X4#X4*2*X5 

G(6)*XM1#X3#X5*X4*2*X6 

G(7)*0.0 

GC8)«-PC/X8/X3/KH-P0/KS/X8/X8 

G(9)«0K3 

G( 10)sGK4 

G(U)*DI*X1*X1 

G(12)»CI*X4vXh 

G(17) = DI*X22*2*X17+XMl’m9*}U94X18*X18 

G(l8)»XHl*Xl9*X19$Xl7v2*X13 

G< 19)*XMl#X18#X18*X17'f‘2*X19 

G(21)sQK6 

G(22)*DI*X17*X17 


where G(i) is the derivatives of the objective function with respect to 
variables x(l) 
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(2) Derivatives of the constraints 


ORIGINAL PAGE IS 
OF POOR QUALITY 


Xn the following, GC(j,l) means the derivatives of the constraint C(l) 
with respect to variable x(j), 


1 


»*5^l!?y9/^®£*^* x ^*5 , f''XH44XM13/X8*42)4C2»/A8**3) | MP4*42*Xl6 

|cU6!|)--^X?t/5!)5{2-XK9«i*2 / < 3 .*X20**2> 
GCC18,l)»2*XM17*XMa*X22/X18/X18/X18 
GC<20,1)»XM10*XM9*XM12/X2 0*«2»XH15*XM9*XM14/X20''4«2 
^ I J ? ? ^ t ^ 2 J i X 1 6 ♦ R C K C K # X ^ 1 6 / X 2 1 ) / C 3 • X 2 0 ♦ * 3 ) 

^ ;j:s«S?Wit?r85SS^fJ{SUi^i;5 20 *‘ 2, * <RCI<a/ * 21/ * 21> * 

I}r x " s/m/,u 

GC C 3 » 5 ) »Xl 34 2 4X 3 
UCC2.2)»-XM.*»*X1*2*X2 
GCC1,2)*-XP2#X2*X2 
GC<14 »3)*X6«X6 \ 

GC(6»3)*X14424X6 

GCC5,3)«-XH2*X442*X5 

GC(4,3)«-XM2^X54X5 

GCC15,4)»2»4X154X9 J < ! 4 3 /X7'*P£14P£14C2«4X154X9/X7}4fX9-Xlfl4XMllona? 
G C C 9 » 4 ) * 2 • 4 X 9 * 3 • »!« X 9 4 X 9 4 K 1 S 4 X 1 5 / X 7 1 - P E 1 4 p * 1 4 ( ( X 1 5 -• 1 5 / X 7 ) S ( X 9* X 1 C 
1XM1|)**24(X15*X15X«X9/X7)^2 J<^94i04XM18)) 1 X7> * a9 X1 ° v 

ixSii5i*r xl5 ^ xl5<<X9>! ' <,3/x7/x7 ^ Ei,iipEi,( ' <)<i5 * )<i5<,x?/x7/K7) * <)(9-x10 ^ 

G^a5i)«X25x2^2lxi C2 ’ X,X10 "‘ CX15PX15:XX9/X7),,2 * X ‘ <X9 ' Xl0 ‘ ! ‘ )(Ml ' 8> ^ XMl8) 

GCC2 ! 5)«X14X142*X2 
GCC7,5)»-XV4/CX8*S$1) 

GC( 8 , 5 )*X74XM4/(B5 1,4X84X8) 

GC(4 , G)«X54XS#2*X4 
GCC$»6)»X44X4424X5 
GCC 7» 6)«-XM4/CX843S24PE 2) 

GCC3 ,6) »X 74 XM4/(P£ 248$ 24X84X8) 

GCC2#7)*XM64X3 
GCC3»7)*XM64X2 
GCCW »7)»-XM3 
GCC1 t 7>«.5 


GC<5,8)»XM6WX6 
GU6, 8>«X'M64X5 
GC(12,e)=-XK3 
GCC4,8)*.5 

GCC17.9)*Xl8 4X18424X17 
GC(18»9)*xn#Xl7#Z#X18 

GCC20,9)*-CXM4/X8*X«9/X20>/B$54CX20/BS5)4XM9/X20442 • 

GCC8»9)“X20/BS54XM4/X8442 

GCC18.10)*XM64X19 

GCC19.10)«XF6#Xie 

GCC 22, 1D)«-XM? 

GCC17#10)».5 

GCC8.11) * (XM4/X 5/X8)rtPCKCK/X21/EC 
GCC2D.il) '* CXM9/x:3/X.?C)4»CKCK/X21/SG 

GCC 21 , 1 1 )#CXM4/X8*XM9/X20)*RCKCK/X21 /X21/EQ*XM74XM0/2/FR/X21/X21/ 

\ w 
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GCC 16, 12 ) * X I 9 =‘ ; X 1 9 

GC(19»12)=X16v2vX19 

GCU8»12>«-XM2*X17*2*U8 

G GC(!6iu)«xS26*XH2 7*X7«Xl0*CXM2 8X«X7/X15-1.0) 

GCC8.14)*-!. 

GCCU,15)»-1. 

GC(14,15)«;1. 

GCC 10 • 16 ) * 1 • 

GC(9,17)*1» .. 


With the above information available, the user is ready to combine it with 
all the other subroutines and ready to run his own program. The detailed 
computer program is provided in the following. The main program is put 
in the front and the user's supplied subroutine ALAGB is put at the end. 

E . 4 Computer List 

A complete listing of the boost converter optimization program is 
attached. 


INPUT DATA 


N 


M 


K , MAXFIN,IPR1,IPR2, IW , 


MODE 


22 29 12 

O.OOC2 5 (AKMIN) 

L C 0 N 
PD = 

V 5 E = 

TS E = 

3CK 
K$* 

4 X 1 N 


600 


1 6C1 2500 



X*C. 0019389, 5. 55 11, 0.0003328,0. 001 518, 4.0919, 0.0005377,0. 00001757, 
0.94815, 0.0 0 0021 6 7 *0.0 C001CSE,0. 01645, 0.0171, 0.07 0-5 9,0. 01152, 

0.06, 0.01627, 0.00527c, 2. 7175, 0.0007639,0. 00 0 0313,0. 00005172, 0.0 32- 
0ENC 
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THIS ?RCG PLACES CONSTRAINT ON C3 AND C4. 

REAL LI , L2,L5,KC,DK3*‘:K4,C'C6,KS,K-,S 
DIM ENSIGN XC 22) 

DIMENSION EPSC22) 

CCMMON/CONS/XMl ,XM2,XM3 , XM4 , XM5, XM6 , X»<7 ,X*S, XM5, XMlO, XM11 , 
1XM12»XM13,‘XMI 4.XM15 , XM1 6 , XM 17, XM 1 S , XM 1 S , XM.2 0 , XM2 1 , XM2 2 , XM2 3 , XM24, 
lXM25,XM26,X.M27,XN2 8,P0,SI,E0,FC,FW,R3,V$T,VfcE,T$K,TSF, 

1 VD,TNC,TFG,TR£,PEl,PE2,e S 1 , 3 $ 2 , B S 5 , VR , RCKCK , 01 . 

2 DC,DK3,DK4,DK6,XS,XH,$,FR,kT 

NAMELIST/ CDn/^C, E l, ED, PC, FW.RQ, VST, VBE jTSR.TSF, 

1 v:,TNC,TP£,TRE,PEl, a E2,E SI , 3 $ 2 , 3 S5 , VR , PCX , CK , 01 , 

2 O' C » C K 3 » D K. 4 »DK6,KS,KH,S,FR,RT 

NAMElIST/PARmET/ PT F, PC, ?D, PDF, PCAO, PMAO.PT, SIGM6P,WS,WH, 

2 w x , #i T W , W C , M Ao,W 

NAMELIST/? AkMS/N,M, K=, MAXFN, I PR1 ,IPR 2 , IW, MODE, AKMIN.DFN 

NAMELIST/XIN/X 

C0MMCN/ALAGE/CC150) 

COMMON/ ALASF/GCC 25, SO) 

CQMMQN/ALAGG/TC150) 

COMMON/ A L AG I/G2 PC 32 55 

CCMM0N/SCALE/VSCALC22),CSCALC40), FSCAL 


1G 


103 


REAjC5,1C)\,*,K,MAX-N,:PR1,IPR2, 
FORMAT ( i £ I 5 5 
SEAOC5,20)AKMIN,OFN 
WRITEC6, FARMS) 

R E A D C 5 , C C ■ J ) 

WRITECfc.CGN) 

FSCAL=1.G • 

CSCALC 13*1. 0E*1 
23 = 1 .OE-IO 
35=1 . OE-12 
4>=1. OE-12 
5 3*1 • OE-6 
6)=1.0E-6 
CSCALC 73*1. OE-5 
CSCAuC S)=1.0=-6 
CSCALC 53*1.06*4 
CSCALClC)=1.0E-4 
C3CALC11) = 1 • 0 E-'3 
CSC ALC12 3 *1 . Os- 11 
2ALC 1 2> = 1 .C E-i 


u \ 


CSCALC 

CSCALC 

CSCALC 

CSCALC 

CSCALC 


] 


CONSTRAINT 

SCALING 

FACTORS 


CE+G 
OE + O 
0 E-5 
OE-5 

1.0 
OE-3 
Or 0 
OE-4 
CE-3 
OE 0 
OE-4 
OE-5 

VSCALC 83*1. OE-1 


CSCALC l**)-! . 
CSC ALC 153=1. 
CSCALC16)*!. 
CSC ALC 1 73 = 1 • 
00 103 1=1, N 
CSC ALC I « 1 73 * 
VSCALC 13*1. 
VSCALC 25=1. 
VSCALC 33=1. 
VSCALC 43*1. 
VSCALC 53*1. 
VSCALC 63 = 1. i 
VSCALC 73 = 1.- 


J 


1 


VARIABLE 

SCALING 

FACTORS 


SUM00030 

SUM00035 

SUM0011 
SUMOO 
SUM00110 
SUMOO 1 1 
SUMOO 


M.AIN0050 

MAIN006C 

MA2N0070 

MAIN0110 
MAINOl 20 
MAIN0130 

SUM00145 

SUM00150 


t 

USER SUPPLIEI 
MAIN PROGRAM 
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20 

8016 


VSCALC 9>«1.0E-6 
VSCALC 10 )« 1 • OE-6 
V$CALCll)«1.0E-2 
VSCALC 12S»l.QE-2 
VSCALC 1 3)» 1 . OE-2 
VSCALC14)«1.0E-2 
VSCALC1 51*1. 0E~2 
VSCAL ( 1 6 ) = 1 . OE-2 
VSCALC 17 1*1 .OE-3 
VSCALC 180 = 1 .0 
VSCALC 19>=1. 0E-4 
VSCAL(20)=1.0E-5 
VSCALC21>«1.0E-5 
VSCALC 22 )»1 . OE-2 
READ(S,XIN) 

LRITEC6, XIN) 

DO 111 I - 1 ,N 
EPS Cl > = 0 *0001 
EPSC 1 ) = 0. 90001 
E P S C 2 1 = 0 . 0 0 1 
EPS( 3 ) = 0 . 00000 1 
EP 5(4)50.00001 
EPS(5)=0.CQ1 
EPSC6)=C.C00001 
EPSC7)=0.C0000C1 
EP5(3)=0.0001 
EPS (91=0.0000001 
EPSC1 01=0.0000001 
EP$(11) = 0.000'1 
EPSC 1 2 1 = 0 . 0001 
EPS(13)=0.0001 
EPS( 14 ) = 0. 00001 
5PSC1 5) = C. 0001 
EP3(16>=0. 000 0 1 
EPSC17)=0.C0001 
EPSU81-0.001 
EP$( 1 9 ) = 0 . 0000 1 
EPS (.2 01=0.0000001 
EPf, (2 1 1 = 0. 00001 
E P 3(22) = 0.0001 
FORM ATC8F1 0.2) 
WRITEC6.8016) EPSC1 ) 
FORMAT (F12. 8 //) 

P I * 3 . 14 1 5 92 654 
XM1=4.«FC*CC 
XM2*4.#RC#FC 
XM3«1./(2.*PI) 

XM4=PG/EI 

xm5»s;rtci./fw> 

XM6 = S2RT(1 ./(PI4 C W1) 

XM7- PD/ EC 

XMS = C LC=£I )/=0 * 

XH9»51#CrC“5I)/(2.ili£3#FR) 

XM10*FR#<lC + VQO.#V$T)/6. 

XM1WSF+T SR 



1 

CONSTANT 

TERMS 


SUM 00 1 8 5 


MAIN0160 
SUM0031 5 


I 

ro 

OJ 

i 


XM1 2 s T S F— T S R 

X‘'T3 = T.VC«'TF0+3.*TRr 

X«24=TND-TPC-3.*TR£ 

X»i5*eC**PRyi2. 

XM1£»£I/EC 

XM17=3C.*£I*.0022*SQRTCFR3 

XM1 3*1. • /PE2 

X.M19*FR/PE2 

XM20*1./£C 

X«2 1*1 • / E r 

XM 22* C1.*FR£FR/ 20 00**23* CES*S INC P I*X«8/XM163 /P I**23**2 
XM23*CS*FR3**2 

X?'2**S/CSCRTCl.«- = R*FP/2OO0.**23*Ee'Pr**2*SZNCPI*CEC~EI3/£I33 
XM25*rR*FR*XM24 
Xm26=XH24*FR 
XH27=4.0*PI*PI* c p*FP 
X42£*2.CFPI*FR/PE2 

RCKC.0RCK*CK \ 

this checks for scaling * 

XI *XC13 • * 

X 2 *XC2> 

X3 "XC33 

X 4 = X(4) 

X 5 * X ( 5 3 
X 6 =X C 6 ) 

X7 * X ( 7 3 

X 3 *X C S ) 

X9 *X ( 9 3 
X1C *XC 103 
xii * x c 1 1 3 
X 1 2 * x C 1 2 3 
X13 *XC133 
XI 4 *XC143 

X I £ * X C 1 5 3 
X 1 6 = X C 1 6 3 
X 17 *X(173 
XI* *X(183 
X 13 *XC1?3 
X 20 * X C 2 0 ) 

X21 *X C 21 ) 

X22 * X C 2 2 3 

1000 Yl*0I*CXl*Xl*Xil*X4*X4*X12+Xi7*XT7*X223 

Y2 = XMl*CX3*X3*X2*X2*XI*X6*X6*X5*X5*X4«.X13*X19*Xl8#Xie*X17 3 

Y3*CK3*X9*CK4*X104-C£6*X21 

Y4*P0*C1 ,/xe-l.)/KM*PC/Xe/KS 

F*Y 1 ♦ Y 2* Y3* Y 4 

PIF*CXR*/#e>**2*CX13*Xl43 

PC*CX*t4*XKayx33«CVST+.l*VSr) + XM10*CXN4*XM.ll/X8^XM9*X«2/X203 
Pu*XM7*VD/X£^X«'15*CXM4*XM13/X£ + XM9«Xf'14/X20 3 

PGF*CXK4/X 83**2* X1E+XM9*X *9* C X 1 6+ECKCK*X M i £ /X 21 3 / C3 . *X 2 C*X 203 ♦ C 
lRCKC*/X213*(X;a6*XF7**2*XV7*XM4/X8/xa~2V*X>*7*XK7/X3 3 
2*X. W 1 7 *XM 5*X22/X1 8 /XI 3 
7 CC13*PC*C1./XS-1. 3 -PI.f-FC-PC-PCF 

c C C2)=X13*X3*X3-X*2*X1^X2*X2 

12 CC33*X14*X6*X6~X*2*X5*X5*X4 


] 
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VARIABLE SCALING 


SCALE THE VARIABLE BACK 


ro 

i 


3 C C43*X9*X9+X15*XlS*X9s*2/X7~PcI**2*CX10*Xl3*CXl5*X15*XS/X73* : 

1CX5-X10*XM1 83**23 
CC53=X1*X1*X2*X2-X7*XM4/C *3*3513 
13 CC£3 = X4*X4*Xf*XS-X7*Xi-’A/CX3*3S2*Pc2 3 

C<7 3=Xf'£*X2*X2-Xil*XM3+,. 5*X1 
CC£3=X!*6*X6*X5-X12*X''.3+.5~X4 
2 CC93=X17*X17*Xie*X15~<X2C/2SS3*CXM4/X8*X19/X203 

C C103=XM6vX19*X13-X22*Xv3+.5*X17 

CC113 * VR-CX«4/X8 •*• XMS/X203*8CKCK/X21/EG-XM7*XM8/2/FR/X21/E;D 
C C 1 2 3 = X 1 6*X 1 9*X 1 ?-X M2*X 1 3 *Xl £*X 1 7 
CC13 3 = -1. 0*X , ?26*X»'27*X7*X10*X2Q*CXf'-2S*X7/Xi5-l .03 
CC143=.565 *X 3 
11 CC133=RT-X13-X14 

C(163=X10-l.E-5 
C C 17 ) -X 9 l.E-6 

<#R:TEC6,138S3F 
13c 2 FCRKATC- c 13 . 5) 

« P I T E C 6 • 1 0 0 0 C 3 C C C 1 3 , 1 = 1,173 
1GO0G FORMAT (4X,5CE14.7,5X33 

DO 101 1*1, N 

XCI3=XCI3/VSC£lCI3 

101 continue 
WRITECE.XIN3 

CALL ALAGACNt H,K»X, EPS, AKMlN , DFN , MA X FN , IPR1 , IP 82 , Irf.MQCE) 

CO 102 I * 1 , N 

102 XCI3 = XC13»VSCALCI3 * 

W R-I T E C 6 , X I N 3 
XL2-XC73/PE2 

XI = X c 1 ) 

X 2 =X ( 2 3 
X2 = X C 2 3 
X 4 =XC‘t3 
X,5 =XC53 
X6 * X ( 6 3 
X7 =XC73 
X 3 =XC S3 
X8 =XCS3 
X10 =X CIO 3 

XII = > C 1 1 3 
X 1 2 =X C 1 23 
X 1 2 =XC133 
X 1 4 *X( 143 
X 15 =X C 1 53 
X 1 6 =X( 163 
X17 =XC1 73 
XI 8 *XC183 
X19 *XC193 
X2C =xC 20 3 . 

X21 = X ( 2 1 3 ' 

X 22 =XC22) 

TXi=XC13*XC13 
TX2*XC23*XC23 
T X 3 * X C 3 3*X C 3 3 
T/4 = X ( 4 3*x ( 4 3 
TX5=XC53*XC53 


SUW00S0S 
MAIMOl 70 


TX6=X(6)*X(6) 
TX7=X(17)*XC17) 
TX3»XC13)*X( 12) 
TXS*XC15)*XC19> 


3025 PQRMATC 
WRITE C6 

3026 FCRMATC 


AC1*',S13.5, # *2*',G13.5). 
Ll« ' » G13 . 5 » ' L2=',G13.5) 


3 027 


i i. ^ r- m i v v-x- • j x j . ? > lx- , o x J • J 

WRITEC6 ,9027)XC5) ,X C1Q) ,XC11), XC12) 

POSMATC '0C3*',G13.St ' C4*',S13 rS.' II*', 313. 5,' Z2*',G12.5) 
wRITEC6,502S3XC13),XCl*),XC15},XC:£) 

F OR MAT C'0S1*',G13*5, ' R2*',G13.5,' R3* ' ,G13. 5, ' 55*',G13.5) 
wRITEC6,5001)TX7 ,TX3,TXS, XC20) 

FORMAK 'CA5* # , 313.5, ' NS* 't 313.5 , ' AC5* ',313.5, ' L5*',G13.5 
WRITEC-6.S00 2)XC213,XC22) 

FORMAT C l 0C6='»Gl3. 5» ' 15* ',513. 5 3 

ij fs r t ev z ^ rt r. ^ n 


l3= ' , G 1 3 . 5 ) 


WRIT6C6, 9QG3 )FR » X CS ) 
PORMATC'OFR=',313. C , ' EF'=',S1 
PlF = CXV4/X5)=X*2*Cyi3*Xl 4) 


? 1P=CXV4/X3)**2*(X13+X1 4) 

?GsCXM4*XMS/XS)*(VST+.i*V6£;)+-xyiD=XCx.‘'.4£X’-*ii/Xi-*-XV.3*Xrtl2/X2a) 
?0*XM7«VD/XS.XM15*C XM4*XM13/X3-*XK9*XM14/X20) 
P0F*(XM4/Xa)*5'2<=X16>XMS*XM9*CXI6^RCKC!C«XM16/X21)/C3 .*X2C*X20 )♦( 

v m i 7 * if m c 


P0F*CXM4/X8)*#2$X16*XMS*X« 
2XM17*XMS*X22/X1=/X1 5) 

= C 4 ? = C R C K C X / X 2 i 0 * C X -v 1 s * X V 7 
PM fi-3- P I F+ P C p 
P T = ? 1 1= ♦ P * ♦ P O ♦ - 0 F ■*• c C A P 
SIGMAP=PC/Xg-?3 
RATIC=XL2/X C7) 
m S = PO/X C S)/KS 
w h = ? c - c i . / x c s ) - 1 . o / x h 


>X*7*X^4/X3/X3-2.*XM7*XM7/XE) 


W M = P 0 v C 1 . / X C S ) - I . 0 / X H 

WI-GI< : CX(1)*XC1)*XC113+X(4)SXCA)*X C 123+X C17)*XC17 )*X(22)) 
WT» = XMl*CXC2)«XC2)*X(2)*XC2)*XCl)«-XC5)$X(6)*XC5)*XC3)*X(4)* 
Xfl9)SXfl9)*xri;'>*xrifiV*xri7'n 


1 XC19)*X(19)*XC12)*XC1S)*XC17)) 
WC=0K3SXC5)O<4X=XC13)i-0K4*XC21) 

* M A G * W I ♦ W T v* 

•i * W I ♦ *’T W ♦ w C ♦ WS ♦ h 
WPITe(6,XIN) 

WRIT=C6,PAP*£T) . 

yR2TEC6,303CXCI3,:*l,N3 ' 

: C CRMATC'1'»10X» 'SOLUTION VECTOR 
STOP 
ENC 

ElCOA ; A T4 
:0-.i0\/-LAGD/GC:2) 

COMMON/ ALAGF/GCC 25, 50) 

COMMON /ALAGI/G2 p (325) 

DATA G2P/325*C. CEO/ 


,10X,4Elfc.7)) 


DATA G C / 1 2 5 0 * 0 . 0 r 0 / 

DATA G/50*C.SEG/ 

Ei.: 

SO 5 ROUTINE ALAGACNf m.k. X, E°S, AX m In , C P N, M AX FN , IPR 1 , 1? R2 , 1 W , MOO E ) 
PEAL X Cl), EPS Cl) 

0 Z V M 0 N / A L A G C / F , M M , X L , I S , M X , N U 
C 0 v ^ ON / i L A G T / G C 3 G ) 

C C M KC n / A L A S c / C C 1 5 0 ) 


SUM00925 
SUM 00x30 

SUM00940 
SUMO 0 945 
SUMO 09 50 
SUMG0555 
SUMO 09 60 
SUM00965 
SUM00370 
SUM00975 
SUM00980 


SUMC1035 

SUM01090 


SUMC1115 


MAIN0180 

MAIN0I90 

MAINC210 

MAIN0220 


almain 


algaocio 

ALGA0020 

ALGA0G30 

ALGA0040 

ALGA0050 


MAIN 

PROGRAM 


ALAG 

BUILT-IN 

SUBROUTINES 
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CC vv 3w/ALfiGF/GCC125D) 

CZ V M CN/ALAGG/TC 1 5 CO 
C 0 v M 2 N / A L A G H / 3 ' CSC) 

C C 0 N / A L A G I / 3 2 P C 2 2 5 ) 
CZ V MZN/ALAGJ/VC50) 

CC v MG N/A L AG K /WW (15 0 ) 

COMMON/ ALAGL/WC 2500) 

COMMON/ ALAGM/ZZ (100) 
CCMM2N/ALAGN/LTC100) 
iXTERML ALAC-Z 

1000 F 0 R M A T C 3 0 1 4 ) 

1001 FORMATC8E15. 7} 
iN U = M A X 0 C 2 5 » N ) 

I F ( M . GT . 5 0 ) N U = N 
IX = N 

:cs =>’•■• 

l z 5 = v ♦ v 

iC=is>*' 

I P =M 
I L T = M 

',-=C N* 1 ) / 2 
v « = K 
KL = K 

v :n$=o 

A < = 1 E 60 

n ~1 • 

m.n=c 

DO 1 1 = 1 » M 

1 C Cl CS + I ) = 1 • 

CALL ALAGB(N,M,X) 

wRITECfc,lCQG3)CCCI)»I=l»17) 
10000 FCR^ATC4X,5CE14.7,5X0) 

0- c = j c N 

IF(OFN.LT.OEG)DF=A2SCD c N*f) 

IFCA55CDFN).LT.1.0E-30) DF=F 

IFCDF.LE.O. )DF=1. 

0 2 2 1=1 , M. 

CC=CCI) ’ 

: = ci.gt..k)cc = avtmiccc,c =c) 

: = c a e s o c •: ) . t . c c i c $ ♦ : ) > c c i c s ♦ : > -- 

2 CONTINUE 


ALGACC60 
ALGA0070 
A LG A 0 08 0 
ALGACC-90 
ALGA0100 
ALGAOUC 
A LG AO 120 
ALGA0130 
ALGA0140 
ALGA 01 50 
ALGA0160 
A LG A 0 17 0 
A1GA018C 
ALGA019C 
A L G A 0 2 0 0 
A L G A. 0 2 1 0 
ALGA0220 
ALGA0230 
ALGA0240 
ALGA0250 
A L G A 0 2 6 0 
A LC- A 027 0 
ALGA026C 
ALG A0290 
ALGA0300 
ALGA0310 
ALGA0320 
ALGA0330 
ALGA0340 
ALGA0350 
ALGA0360 


ALGAC370 

ALGA0390 

ALGA0390 

ALGA0400 

ALGA0410 

ALGA0420 

ALGAC430 

ALGA0440 

ALGA0450 

ALGA0450 

ALGAC470 

ALGA0480 

SCALE PARAMETERS ARE') ALGA0490 

ALGA 0500 
A L G A 0 5 1 0 
ALGA0520 
ALGA0530 
ALGA 0540 
ALGA0550 
ALGA0560 
ALGA0570 
A L G A 0 5 8 0 


c : c c z ) 

I F C IP R 1 . E3 . 0 ) GOT 04 
I FCM CD C M I NS 1 1 PR 1) • N E • 0 ) GCTQ 4 
PRINT 1002 

1002 FZRMATC MENTRY TO A L AG A '/// ' 0 CD NS TR A INT 
PRINT 1C01»CCCICS+I),I=1.M) 

4 CONTINUE 
1~( V CDE.LT. OS2TG5 
CC 3 1=1, M 

T(I$«-I) = 2E0$0F/CCICS*I) $#2 
2 T C I ) = 0 . 

5 CONTINUE 

M 0 = 1 A BS C MOD E ) 

E continue 


o o 

-n g 
u © 

o 5 
o > 
so p 

© -o 
c > 

3s> 


1002 

1004 

1005 

10 0 6 
7 


' ' T» «• it II 

-w ••!» i *« 

-CD^E^C 1 ) 

If CIPR1.EC.0)GCTC7 
I F CMSOCMINS » I? R 1 ) • N 5 . G) GOTO? 

PRINT 1003 » PINS 

PSfiKATC//// 'OOUTEft ITERATION NUMSE 9 is' f 12) 
PRINT 1004 

pcrmatc *oxcn *o 
print loci , cxci) , i-i.N) 

PRINT 1005 

FCRMATC 'CThrTACD ') 

PRINT 1001 #CT(I>,I* 1,*«3 
5 5 I N T 1 C 0 6 
FIRM 4 TC 'CSIGMACI) ') 

: IN? lOf ~~ 

' f ^ 


;ni 


C:LAG2,N,X,P4l,t 3 ,^,VW,IP,r=S,Kl,yiX c N, IPR2, IEXIT) 


CALL ALRG3CN,M,X) 

M D * 3 

AKK*0 . 

:: i=i,m 

* r C ^ C C * ) 

ZFCI.GT.K. ANO.CC I) .5£ . T C U)CC=6MIN1C CC , 0 £03 
TCD-TCD^TCIS^I) 

«WCI}=AESCCC)/CCICS*I) 

IPCWtaCI ).GT. 4KK) AKK»*WCI) 

CONTINUE 

IFCI p R1.EQ.0)GOT016 
IFCMGOCMlNS.IPP-l) .NE.0 3GOTG16 
PPINT 1007 


10 3 7 FI RM AT ( ' 0 EX IT FROM 


A '/^LAGRANGE MULTIPLIER ESTIMATE! '3 


100 2 

1005 

1010 

16 


17 


PRINT 1001 «CTC 7 ) t i*l>r» 

PRINT 1008 

F£PMAT C '0 largest scaled constraint violation'/ 
1* t-is iteration, sest iteration') 

PRINT 1031 ,AKK,AK 
PRINT IOCS 

FERMAT C'GCCNSTRAINT RESIDUALS '0 
P « I NT IS 01 .CCCI 3 .I* 1 .K 3 

p - T \ T ^ G 1 G 

FORMAT C 'OSCALEO CONSTRAINT VIOLATIONS') 

PRINT IQ 01 ,CWWCI 3 .I*l.*O 
CONTINUE 

IFCIEXIT.EC .0 .GR. IEXIT. EG. 3 ) SC TO 20 
IrCAKK.lE.AKNlN)GGTO20 
IFCAKK.GE.AK)G0TQ11 
00 15 1 * 1 ,NN 
£2^01 )**-<« 
u C 17 I * 1 , M 

IFCI.GT .K.AND. A5SCTCI) 

2 2 C 1 9 ♦ I ) s **T C I S * I ) &C C I ) 

IFCI.GT. K.AND. 22 C IP*I) . L? . -TCI) ) 22 C I P*I>* -T Cl) 

CONTINUE 

if c"I?,s.e;.i>sotea: 


).LT. 1.0E-30. AM. CCD. GE. DEC) GO TC 17 


ALGA0590 
ALGAOEOO 
ALGA0610 
ALGA0620 
ALGA0630 
ALGA 0640 
ALGA0650 
ALGA0660 
ALGA0670 
ALGA06B0 
ALGA0690 
ALGAC700 
ALGA0710 
ALGA0720 
ALGA0730 
ALGA0740 
AL5A0750 
ALGA0760 
ALGA0770 
SLGA0780 
ALGA0790 
ALGAOEOO 
ALGA0810 
ALGA0S20 
ALGA0B3C 
ALGA0340 
ALGA0850 
ALGA0860 
ALGA0870 
ALGA0880 
ALGA0890 
ALGA090C 
ALGA 05 10 
ALGA0920 
ALGA0930 
ALGAC940 
ALGA0550 
ALGA0960 
ALGA0970 
ALGA09P0 
A LG A 0 9 90 
ALGA1000 
ALGA 1 0 10 
ALGA 1 C 20 

ALGA1040 

ALGA1050 

ALGA1060 

ALGA1070 

ALGA1090 

ALGA 1100 
ALGA112C 
ALGA 1130 
A L G A 1 1 4 0 
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OF POOR QUALITY 



1 




i 

t 

f. 




ro 

00 

1 


11 


101 


103 

102 

105 


1011 

1 2 

14 

18 


13 

1013 

ZO 


2 0 00 


1012 

21 

32 

40 


G0TC18 
COM IfiUE 

If : C 4 5 5 C 4 K K — A iO.LT.l.OE-lC) 00 TO Ml 
GO TO 103 
00 102 I = 1 » K 

iF(CCica*i>.Gc. h.o*wwc:)) g: tc 102 
3$*9E0*TCI$«-n 

TCIS + D- IEIMCIS + I) 

IF CIPR1.NE.0) PRINT 1011 , I.TCISfl) 

DC 103J*1.N 
VCJ)=GCCCI-1)*NU+J> 

CALL MULDACC-2F,is , V,jS,V ,N ,N,DS) 

CONTINUE 

GO TO 18 . 

CONTINUE 

00 14 i=i , y 

I F C * w C I) . L E . A K . C 3 . C C I C ?. ♦ I ) . C- E , 4 E 0 * * w C I )} G 0 T 0 1 ~ 

DS = 3S0*TCIS«-I) 

TCIS + I) = 1E1*TCIS«-I) 

IfCIPRl.NE. SO PRINT 1Q11,I,TCI5-*I) 

FORMAT C 'QSIGMAC '» 13* ' ) INCREASED T[ ',E15.7) 

CG 12 J=1,N 
VC J)=GCCCI-1)*MU+J) 

CALL • V! U L C A ( G 2 p » N , V »CS*V , N , N , 9 S ) 

CONTINUE 
CONTINUE 
00 13 1*1, N 

IFCABSCXCD-GCIX+I)) . GT . E° S Cl ) )G0TC21 

CONTINUE 

PRINT 1013 

FG p MAT C 'ORE GUESTED ACCURACY NOT DETAINED') 

CONTINUE 

IrCIEXIT.EC.OPPINT 20C0 

FORMATC 'OMATRIX SET IN £ 2 P 3 Y USER IS NOT -CSI"V = DEFINITE') 
IFCIPR1 . EQ.O)RETURN 
PRINT 1012 

FORMATC 'OBEST SOLUTION DETAINED '/'OF, CGCD ,1 = 1 ,N> ') 

PRINT 1001* F.CGC), 1 = 1, N) 

RETURN 

CONTINUE 

IFC AKiC .uT. AK)G3TC40 
DO 32 1*1, M 
VCD-TCIL + I) 

GCT070 
CONTINUE 
MK-0 
KK= 0 

DC 41 1*1, M 

tcil+:)=tci) 

CCIC3«-I)=WWCI) 

IFCI.GT.K. AND. ASSCTCIL+1) ) . LT . 1 . C E-30 . AND . CCI > . GE . 0 EC ) GO TC 41 
KK=KK ♦! 

LT CILT+KK) = I 
GP CKK)=-1 E30 

IF C I . G T . k ).gp CK 0 = -T C I L* I ) 


ALGA 1150 
ALGA1160 


ALGA1170 
ALGAllSO 
ALGA119C 
ALGA1200 
ALGA1210 
ALGA1220 
ALGA1230 
ALGA1240 
ALGA1250 
ALGA1260 
ALGA1270 
ALGA1280 
ALGA1290 
A LG A 1 300 
ALGA 1310 
ALGA 1320 
ALCA1330 
ALGA1340 
ALGA1J50 
A LC A 1 3 6 0 
A LG A 13 7 0 
ALGA1380 
A LG A 1 390 
ALG A1400 
A LG A 1 4 1 0 
A L G A 1 4 2 0 
A L G A 1 4 3 0 
ALGA1440 
ALGA1450 
ALGA14E0 
ALGA1470 
ALGA1480 
ALG A 1490 
A L G A 1 5 0 0 
ALGA1510 

A LG A 1 5 3 0 
ALGA1540 
ALGA1550 
ALGA1560 


Kk 
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41 

42 

00 1 


CNJ 

VO 

I 


52 
1 1 


55 

5c 


V(KK)* 1 £ 3 Q 

I 1 (KK)=-C(I) 

C ON T INUE 

IFCKK.E0.0>G0TD20 
DC 42 1*1, N 
GC IX* I ) =X ( I ) 
KKK*KK*CKK*1 )/2 



COMMON/ ALA GL TC '» 17, 'ELEMENT'S ') 


0 CM IN U S 


0w c 3 I = 1 , K X 
L1*LT C I LT *1 ) 

:: ;i jj*1i\ v 

XCJ J) = C-C( CLI-1)*NU*J JO 
CALL y <LLCEC»«»N»X,X»N) 

DC 53 J*1*I 
LJ=LT(ILT40) 

I*C. 

DC 52 J J s 1 , N 

1-l + lU JJ)*GCCCL J-1)*NU»J J) 

1 1 * 1 1 4 1 

JJ=IW-XKK 

11*0 

DO 55 1*1, KK 
CC 55 J = 1 , I 
JJ= J J*1 
Vi C II* J )=W ( J J) 

II=II*KX 

'• ,KK.U,GF,V,T,2,LT,JJ,WW) 

; a 


CALL S:CMAC**,W,KK,U 
IFCIPR1. EQ«C)GDT059 
I -C v - CD C MI NS , I P s 1 1 . fcr . 

2 HTI.T 1 1 A W i/ 


1 0 c 0 

12 21 

55 

50 


_ . __ . . 0)GCT~59 

PRINT 1020, XK 

FORK AT ( I 4 , ' ACTIVE CONSTRAINTS, NUMBERED') 
PRINT 1000, ILTCILT*!), 1*1, XX) 

PRIM 1021 
C CR v - T< ' ClAG R A "MG 
PRINT 1001, CTCI), 
continue 
CC 6 C I = 1 , M 
VCI)*TCIL*I> 

DC- 5 2 I = .1 , XK 

I T-l TC T I T-kTI 


y 'J*TI c L T:r R CORRECTIONS FCC 



ALGA 1 570 
AC.GAI58Q 
ALGA1590 
ALGA1600 
ALGA 16 10 
ALGA 16 20 
ALGA1630 
ALGA1640 
ALGA1650 
ALCA1660 
A LG A 1 6 7 0 
ALGA1680 
ALGA1690 

- ALGA170C 
ALGA1T10 
ALGA1720 
ALGA1730 
ALGA 1740 
ALGA1750 
ALGA1760 
ALGA1770 

• ALGA1780 
ALGA1790 
ALGA18C0 
ALGA1810 

. ALGA1820 
ALGA1830 
ALGA1840 
ALGA1850 
ALGA1860 
ALGA1870 
ALGA1880 
ALGA 1 890 
A L G A V9 0 0 

• ALGA 1 910 
ALGA 1920 
ALGA1930 
ALGA1940 
ALGA1950 
ALGA I960 

IVE CONSTRAINTS ') ALGA1970 

ALGA1980 
ALGA 1990 
ALGA20C0 
ALGA2010 
ALGA2020 
ALGA2030 
ALGA204C 

ALGA2050 
ALGA2060 
ALSA2070 
ALGA2080 
ALGA2090 
ALG A ? 1 00 
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OF POOH QUALITY 


ti s?Cji=:cccLi-i)*»:j*-o 

Csl'_ -UL : ACGZ C ,N,3 C ,?S,GP, ‘‘,N,2E) 

£ Z 2 ’2 & T I \ L £ 

& K. = ** K 1% 

7 2 CDMIML 
22 71 1=1," 

71 tci)=vu)/tcis+:) 

CC 72 1=1, N 

72 XU)=2C:x + I) 

2 ?= 1 E 5 C 
5ZTC3 

= NC 

SUER2 27 IK 2 * i;GZCN*X,PWl, SPHI) 

REAL X(1),GPHIC1) 

C 2 " M2 %•/ At A G C/P » * , < , I S , M K , NU 
C 2 M v 2 . / A L A GO / G C 5 C ) 

2 2 * V 2 \ / A L A 2- f ✓ C C 1 5 0 ) 

C u t* H C N / A l A -3 F / G C C 2 2 5 0 ) 

CGMMGN/ALAGG/TClSO) 

IFCMK.cG. l>CALt A L A G 3 CK,M,x) 

"N = l 
F ri X = j . 

CG 10 1=1, N 
12 GPHICI)=GCI) 

20 12 1*1, v 
CC=C C I ) - 7 Cl) 

1FCI .GT. <5CC*A*IM1CCC,3E0) 

Y=TCIS*I)*CC 

IFC A2SCY) .LT.1.0E-3D) GO T2 12 
P H I = ~ h I + Y £ C C 

00 11 J = 1 , N 

11 GPKIC J) = 2-PrICJ)>Y*GCCCI~l)*NU + J) 

12 CONTINUE 
Pnl=. 5E0£?HI+ C 
RETURN 

cNZ 

sue ROUTINE CNWTAC=UN'CT,N,X,F,2,w,A-.C e: N»EPS, w OOE,MAXFN,IPRINT, 
1IEXIT) 

PEAL XC1>,GC1) ,FC1) ,rf Cl), EP SO) 

C A L l "2 '2( v,X)P)j) 

I, c CIPRIM.NE.O)PRINT 1CC0 
00 FORMA T C '1 E MR Y O QNvfT A '/) 

NN = N*CK‘0)/2 

* o = N 

I G G = N •» N 

IS=IGG 

1 EXIT = 0 
x R = N 

IFCM22E.E2.3)G2TD15 

I p C M 2 2 E • E 0 . 2 ) G 3 T 7“ 1 0 
I J=NN+1 
20 5 1 = 1,. M 
CC £ J*1,I 
I J=I J-l 
£ fiCIJ) — C. 


ALGA2110 
ALG A2120 
ALGA2130 
AUGA21A0 
ALGA2150 
ALCA2160 
ALGA2170 
ALGA 21 SO 
ALGA2190 
ALGA2200 
A LG A 2210 
ALGA2220 

algzooio 

ALGZ0020 

ALGZ0030 

algzooao 

ALGZ0C50 
ALGZ0060 
ALGZ0070 
ALGZ0090 
ALGZ0090 
A LG Z 0 1 00 
ALGZOUO 
ALGZ0120 
ALGZ0130 
ALGZC140 
ALGZO 150 

ALGZ016 

ALGZ018 
A LGZO 1 90 
ALGZ0200 
ALGZC210 
ALGZC220 
A LG A 0230 
ALGZ0240 
CNTA0010 
CNT A0020 
CNTA0030 

QNTA0040 
CNTA0050 
CNTA0060 
CNTA0070 
CNTA0080 
G NT A 0090 
CNTA0100 
CNT AO 11 0 
CNT AQ1 20 
CNTA0130 
CNTA0140 
CNTA0150 
CNTA0160 
CNTAC170 
CNTA0180 
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*1 


5 

H( I J ) « 1 . 

CNT A0190 

10 

GOT 0 1 5 

QNTA0200 

CONTINUE 

CNTA0210 


CALL MULDBCH.N, IR) 
IFCIR.LT. njrIturn 

CNTA0220 

CNTA0230 

15 

CONTINUE 

CNTA0240 


Z*P 

CNTA0230 


I TN* 0 

CALL FUNCT CN,X»P»G) 

SmtSSIto 


IFN«1 

CNTA0280 


C F “ C c N 

CNTA0290 


IF(A5S(0FN).LT.1.0E-30) 0F-F-2 

CNTA0300 


IP<DFN.LT.C.)0F«A3SC0P»F) 

CNTA0310 


I F C 0 r • L E • 0 • ) 0F»1 • 

QNTA0320 

20 

CONTINUE 

C NT AO 3 30 


I PC IPRINT ,EC.0)G0TQ21 

CNTA0340 


IKHCD(ITN»IPRINT).N5.0)GCTC21 

CNTA03S0 


PRINT lOOltITNtIFN 
FQRFATC24I5) 

CNT AO 360 

1 0 0 3. 

CNTA0370 


PRINT 1002, F 

CNT A0360 

1002 

FORMATCC6-E15.7)) 

CNT AO 39 0 


IFCIRRINT.LT. 0JGCT021 

dNTAOAOO 


PRINT 10C2,CXCI),I«1,N) 

CNT A 04 1 0 


PRINT 1002, CGCI) ,1-1, N) 

CNTA0420 

21 

CONTINUE 

GNTAQ430 


ITN'ITN+l 

CNTA0440 


DC 2 Z I = 1 , N 

CNTA0450 

22 

WCIG*I)*GCI) 

CNTA0460 


CALL MULDE(F,N,G,W,IR) 

CNT A0470 


G S* 0 . 

CNT A 04 8 0 


DO 29 I » 1 , N 

CNTA0490 

29 

uci$*:)--gci> 

QNTA05CO 

GS«GS-GCI)#WCIC*I) 

QNT A0510 


I E X I T - 2 

ONT A0520 


IFCGS.GE.0.5GDTC9 2 

CNTA0530 


G50 * G 3 

3NTA0540 


ALPHA*-2.#CF/’GS 

CNTA0550 


IFCALPHA.GT.1..)ALPHA*1. 

CNTA0560 


0F*F 

CMTA0570 

30 

TO T * 0 , 

CMTA0580 

CONTINUE 

C M T A 0 5 9 0 


I E X I T * 3 

CNTA0600 


ifcfn.ec.paxfnjgoto'j: 

iex:t=4 

IrC lFN.GT.FAXFN) GO TO 92 

CNTA0610 


:coN»o 

CNTA0620 


I E X I T = 1 

CNTA0630 


DO 31 I » 1 , N 

CNTA0640 


Z= ALPHAftW C I S ♦ I ) 

CNTA0650 


IrCA-3SCZ).GS.EP3(I)):CCN*3 

QNTA066C 

31 

X C I ) * X ( I ) * l 

CNTA0670 


CALL 5 U N C T CN,X,"Y ,G) 

CNTA0680 


1 F N = I P \ ♦ 1 

CNTA0690 


G Y S * 0 , 

CNTAC700 


DO 22 I s 1 , N 

CNTAC71C 
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32 GY$*3VS*G(I)#KCIS*X> 

I. F ( F Y . G E . r ) G C T 0 4 Q 
IF(AaS<GY‘>/GSO).LS..9)GCTOS5 
IFCGYS.GT ,C.)GOTQ40 
TTY* TOT* ALPHA 
2 * 1 C . 

I F < G S . L T . G Y 3 ) Z * 0 Y S/ C G$-G Y S ) 
IFCZ.GT .10.)2»10. 

ALPHAS ALPHAS! 

f*py 

G 5 a G Y S 
GOT C 3 0 

40 CONTINUE 

DC 4 1 I « 1 ,N 

41 XCI>“X(I>-AIPHA#W<IS*I> 
IFCICON.EC.C 3GCT092 

Z * 3 . •‘fcCF-FY)/ALP w A*GY$*GS 
■ ' " G 7.1*0335) G C TO 3 6 



GO 

TO 

37 

3 6 

Z«1 

.9 



GC 

TO 

3 9 

37 

CONTI 

NUE 


50 


51 


. Z * 1 * - c G V S ♦ : 1 - Z ) / C 2 . * Z Z + G Y S - G S ) 
CONTINUE 
ALFHA*AIPHA#Z 
G 0 T 0 2 0 
CONTINUE 
ALPHA=T0T+ ALPHA 
F«p y ’ 

IF(ICwN.CG.0)GCT n 9G 
0 F = 0 ^ - F 
OG5*GYS-G5Q 
DO 5 1 I = 1 , N 
WCIGGfl >«GC I) 

gcxjs-wcig*:) 

If <CGS*ALP hA*G 50. GT.9.)GCTC60 
COMPLEMENTARY OF r FORMULA 
SIG=1»/GS0 
X R * - 1 R 

CALL MUL DA ( H ♦ N * G » S I G • W , IR * 1 , 0 . ) 

CO 5 2 1 = 1, N 

GC1 >*U( IGG4 D-WCG4 I) 

S2G=l./( alPHA#2G£> 

I R = - 1 R 

CALL MULD AC rt , N , G , S I C- , w , 1 R , 0 , 0 . ) 

GCT070 

CONTINUE 

CrP =ORMlJLA 

Z Z = ALP f A / <0G S-A L A#G $ 0 ) 

5 :g = - : z 

CALL M U L D A C - , N , C , £ I G , W , I P , 1 ♦ 1 5 - 7 ) 


61 


Z=DG5*ZZ-1 

t N 


_ 0 61 1 = 1 F , 

G ( I ) = W ( I G G i 1 ) ♦ Z * h C I G ♦ I) 


CNTA720 

2NTA0730 

2N7A0740 

CNTA0T50 

CNTA076C 

CNTAO770 

CNTA0780 

2NTC0790 

CNTA0800 

3NTA0810 

CNTA0820 

CNTA0830 

CNTA0840 

CNTA0850 

CNT A 0860 

QNTA0870 

CNTA0880 


SNTA0890 
CNT A 0900 


2 N T A 0 9 1 0 
SNTA0920 
•;NTA 0930 
2NTA0940 
CNTA0950 
CNT A096O 
CNT A0970 
CNTA0980 
CNTA0990 
CNTA1000 
2NTA 1010 
CNTA1020 
QN T A 1 0 
CNT A 1 040 
CNTA1050 
INTA1060 
; N T A ! 0 7 0 
CNTAl 080 
CNTA1090 
CNT All 00 
CNTAl 1 10 
G NTA1 1 20 
CNTAl 1 30 
0NTA11 
INTA'1150 
: N T A : 1 6 0 
CNTAl 170 
CNTAl 1 30 
CNTA1190 
C N T A 1 2 0 0 
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S!S*1./(’Z*CG3**2) 

70 conuSue da<k#n,G ' SI5,W,I ^ 0,0#> 
,, DO 71 I * 1 • N 

71 GCX)aWCIGG*!> 

GO T 32 0 

92 CONTI NU c 
00 91 1*1 , N 
91 G(X)aU(XGfX) 

9 C CONTINUE 

IFCIPSINT .EC.OJRfTURN 
PRINT 10C1.ITN, IFN,i: 

PRINT 1002 , F 

fi 5 T 41 T a* _ . 


10 
1 1 


X I T 


»cxcr),i»i ,n) 

s 1 » N ) 


ST 5 I G*Z*Z TRANS POSE 


PRINT 100 „ 

SItuJn 1002 ’' 5 " 5 ’ 1 

ENC 

»T!^e?§, 5mN :N * 
A<1)«AC1)*SIG *ZC1>*»2 
iR = l 

I F( A<1 ) . GT . 0. )R ETURN 
A ( 1 ) * 0 . 

I R « 0 
RETURN 
CONTINUE 
N P * N ♦ 1 

IF(SIG.GT.C.)&CT040 
I F C A5.S(SIG).l T .1.0E- 

i ^ 


0)GCr- to 


71=1./$ 

I J « 1 

XPCMK.EC 
00 7 I * 1 » N 
IrC AsSCA(XJ)) 

I J»I JtNP-I 
GOT 02 0 
CONTINUE 

00 11 1*1, N 

wc i )*:cn 

DC 15 T = 1 , N 
IP-I+l 
V*W(I) 

1 r ( A ( I J ) . G T 
w c : ) * u . 

GCT315 

CONTINUE 

T I = T l*Vs!o;«0/A( I J) 

i f < : . t c . k > g : t : i ; 
DC 13 

: j*i jti 

j)-V#4( I J) 

IJ*IJ<M 


•30 .OR. IR. 50.0) RETURN 


GT.1.3E-30) TI*T I*W( S)**2/A< I J) 


0. )GCTC12 


CNTA1210 
ON T &1220 
CNTA1230 
CNTA1240 
CNTA1250 
CNTA 1 260 
0NTA1270 
CNTA1280 
SNTA1290 
CNTA1300 
5NTA1310 
CNTA1320 
CNf A 1 3 30 
SNTA1340 
ON T A 1 3 50 
QNTA1360 
CNTA1370 
WU0A0C10 
MUC E0020 
^UCAOO 
NU0A0040 
FUCA0050 
F'UC A0060 
MUCA0070 
MU3A0090 
MUDA0090 
FUCAOI 00 
HUOAOllO 
PUG AU120 
MUDA0130 

F U 0 A 0 1 5 0 
FUOA0160 
FUCAOI 70 
FUOAO 1 90 

MU: A0200 
F u 0 A 0 2 1 0 
FU0A022O 
P U G A 0 2 3 0 
NUOA0240 
PUDA0250 
M U : A o ?. H 0 
FU0A0270 
NUCA0280 
FUDA0290 
PUCA0300 
MU0A0310 
«U0A032.0 
HLDA0330 

mi;oao 2 ao 

F U 0 A 0 3 5 0 
FUG AO 3 60 
F.DA0370 
v U 0 A 0 3 9 0 
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15 CONTINUE 

20 CONTINUE 
I-CI-.LE.C }3CTC21 
I r C 7 I . G 7 .0.)3ETC22 
I C CMK-1)4C,40,22 

21 T I = 0 . 

I R~ - 1 R — 1 
G0T023 

22 ti*eps/s:g 

IFC A3SCEPS).LT.1.0?-3C) I?*IP-1 
22 CONTINUE 
MM* I 

:: 30 i*i , n 

J = N r — I 

IFC A5SCACIJ)5.C-’* 1 . 0 E-2 0 )TI M*T I-WC J)**2/ A Cl J) 

«i C J ) -T I 
20: TI-T1* 

GOT OF! 

40 CONTINUE 
MM = C 

T : v = i . / s i g 

41 continue 
I J = 1 

CC 6 t 1*1, N 

tOl T 4’ 

V* Z C 1 5 

IF(AC1J).GT .C.0GCTC53 

I c (Ik.GT.O .C«.$IG.LT.Q..OR. A2SCV).LT.1.0E-3C) GO TO 52 
IR*1-Ift 

A Cl J)-V**2/TIM 
I r CI.EC.NJRET'J-N 
DC ;1 J-IP.N 
I J* I J 1 

51 AC IJy=ICJ)/V 
RETURN 

52 CONTINUE 
TI«TI« 

I JsIJ+NP-I 

- — -w * 

53 CONTINUE 

AL*V/A( I J) 

IrCMM)54, 54,55 
5 4 TI-TI«-»V*AL 
GCTUEs 
53 TI=*(I) 

56 CONTINUE 
P*TI/T IV 
ACI J J = ACU.3$k 

IFC j3SCkO.LT. 1.0c -30) GC TO TO 

:fc..:c.n)g:to7C 

a=AL/TI 

IFCR.GT.4. )GCT062 

0 !" £ 1 f = ' r O . 


MUD AO 3 90 
FUDA0400 
PUDAOhIO 
MU0A0420 
PUDA0430 
PUDA0440 
MUCA0450 
HUDA0460 
PUDA0470 

MU0A0490 

MUDA0500 

PUDA0510 

MUCA0520 

MUDA0540 

MUDA0563 

MUDA057C 

MUDA058C 
MUDA0590 
PUDA060C 
MUDA0610 
MUDA0620 
MUD A 06 30 
MUOA0640 
MUOA0650 
MUDA0660 
MU0A0670 

MUDA0690 
MUD A C 700 
MUDA0I10 
MUDA0720 
MUDA0730 
MUDAC740 
MUDA0750 
MUD A 0760 
MUDA0770 
2UDA0780 
*UD A0790 
MUDA0600 
MUDA0810 
MUDA0320 
MUD A C 3 3 0 
MUD AO 840 
MUDA0850 
MUOA0860 
KUDA0870 
MUDA0880 

MUDA090D 

MUDA0910 

MUDA0S20 

MUDA0S30 




- 
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51 

62 


63 

64 


6$ 

70 


100 


101 


10 2 
10 2 

104 


I J - I J ♦ 1 

u j>*:c j)-v*a< : j) 
AC! J)>ACX J) + 9«Z< j) 

GOT 064 
GM-TIH/TI 
DC 63 J * I P » N 
IJ-IJ+1 
Y * A ( I J ) 

AClJ)-ff«2(J)4Y«GH 
2( J)*Z< J)-V*Y 
COST I NU l 
T 1H*T I 
I J « I J* 1 
COM INUE 
CONTINUE 

IFCIS.LT .0)IR*-IR 
RETURN 
END 

SUBROUTINE 
01 MENSICN 
I R*N 
IFCN.GT 

I F C A C 1 > 

A< 1 ) *0 . 

I R * 0 
RETURN 
CONTINUE 
NP«N*1 
11*1 

DO 104 Z *2 » N 
A A * A C 1 1 ) 

NI«II4NP-I 
IFCAA.GT .0. > CO- 
ACH )=0. 

I R * I R - 1 
1 1 « N I ♦ 1 
GCT0104 
CONTINUE 
IP*IItl 

I I «N I ♦ 1 
J K •* I I 

00 103 I J ■ l P . N I 

V*A(IJ)/AA 


M ULCS(fi»‘l*IR) 
( 1 ) 


1 JGCTCIOO 
GT.O.ORETURN 


101 


10 , 


. K * I J , N I 


A< JK)«A( JK)-A( IK)#V 
JK * JK ♦ 1 . 

A ( I j ) * V 
CONTINUE 

Ir(A(II).GT.O.)RETURN 
ACII )*0. 

I R * I R - 1 

RETURN 

ENC 

SUBROUTINE MULCEC i ,N, 2 , 
DIMENSION ACl)»ZU)triCl) 


W ♦ I » ) 


M U 0 A 0 540 

PUDA0950 

MU0A0960 

MUDA0970 

MUDA0980 

W U0A099C 

MUOAIOOO 

M U 0 A 1 0 1 0 

*UOA1020 

VUDA1030 

M UDA1040. 

v-UOAl 050 

V UDA1060 

NUDA1070 

VUDA1030 

MU0A1090 

#UDA1 100 

fUDAlllO 

MUD30C10 

M UD90C20 

^UDB0030 

PIJDB0940 

w IJ 0 8 0 C 5 0 

m UDB0C6O 

WU0P0070 

^UDBOOBO 

PUDP0090 

PIJDB0100 

^UDBOllO 

WUDB0120 

> v UDBO 1 30 

NUD30140 

MUDB01 50 

MUDB0160 

PU 050170 

VUOBO! 30 

"U0B0190 

MUDB0200 

NUOBOOlO 

^UDB0220 

W 'JDB0230 

MJDB0240 

V UD60 2 50 

MUDB0050 

PU0e0270 

N'UDEOZSO 

MUDB0290 

M UDBO 3 OQ 

PU0B0310 

NUDB0220 

PUDB0330 

*UD60340 

MUDB0 3 50 

MJ 0 E 0 0 1 0 
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MULTIPLY A VECTOR Z BY THE INVERSE CF THE FACTORS GIVEN IN A 

MUDEOO 


I-CI- . L ~ .NORETURN 

v 1 J C F 0 0 4 0 


W C 1 ) - 1 C i ) 

MUOED05G 


IFCN.C-T .DG0TQ4 0G 

MUDE0060 


2C1)=ZC1)/AC15 

MUDE0070 


RETURN 

MUDEC080 

4 € 0 

CONTINUE 

MUDE0090 


00 4 G 2 1 = 2, N 

MU0E0100 


IJ=I 

MU0E0110 


11=1-1 

MUDE0120 


V = Z C 1 9 

MUDE0130 


00 401 J=1,I1 

«U0E0140 


V=V-A(IJ9*IC JO 

y UDE0150 

401 

I J = I j + - J 

MUDE0160 


w c n = v 

MUDE01 ?S 

40 2 

Z C I ) =V 

MUDE0130 


I CN) = ZC-0/ACI J) 

MUDE0190 


N P = ;N ♦ 1 ‘ 

MUDE02GC 


00 411 N I c = 2 » N 

m U 0 E 0 2 1 0 


I=NP-NIF 

M-UDE0220 


II=I J-NIP • ' 

MUDE0230 


V=ZCI)/A(II) 

MUDE0240 


IP=I-*-i 

M-JOE0250 


I J = II 

MUDE0250 


DC 410 J = I P , N 

MUD E 0270 


'11=11+1 

w U 0 E C 2 8 0 

41 G 

V=V-4(II)FZU) 

v U D E 0 2 3 0 

411 

Z ( 1 0 = V 

MUDE0300 


RETURN 

M-UDE03I0 


END 

MUDE0320 


SUBROUTINE 3 COM A ( N , A , I A , 8 , 3L , ?U , X , C , LT,K , G) 

3CMA0010 


GIVE N E : : N ACIA,l) f 3Cl>,3LCl>»3UCl}»XCl),LTCl),6C13 

5QMA0G2Q 


I S = N 

3CMA0030 


I A S = N 

BCMA004D 


I V = N 

BC-MA 905 0 


ICAC=N+N 

SQ.MA0O6Q 


IO=ICAC 

3QMA007 


DO 9 1=1, N 

52MAQC90 

9 

GCI)=-B(I) ' 

30MA0090 


DC 10 1=1 , N 

eCMAOlOO 


xc:)=o. 

E2MACI10 


LTC)*I 

3 C M A 0 1 2 0 


G(ICAC+I)=ACI,I) 

BCMA0130 


IFCO. .GE.5LCI). AN0.0..LE.3UCI))GCT010 

8 Q M. A 0 1 4 0 


I F ( 0 . . L T • £ L ( I ) ) X C I ) = 3 L ( 1 9 

SCMA015C 


IFC0..GT.6UCI)mi) = 3UCI> 

2QMA0160 


00 12 J=1,I 

B3MA0170 

T 

GCJO = GC J9 + AC j,D*xcn 

5QMA01 80 


IrCI.=S«N)SCTC10 

EQMA0190 


II=I+1 

30MA0200 


CC 11 J = 1 1 , N 

3QMA0210 

11 

GC J9=GC J9+ACI, J9*X>;i9 

3 QM A 0220 

10 

CONTINUE 

3CMA0230 


H = G 

2CMA0240 


<1 = 1 

B2MA025C 
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20 CONTINUE 

ICUT=0 

DEL— 0 . 

DD 21 I»K1,N 

iF( L IaS(XCL:)-=LCI)).LT.l.CE-30.AK'C.G(I).GE.0.E0) GO TO 21 
I F ( A£SCXCLI)-BL(I)).LT.1.OE-20.4 ND.GCI).Lc.O.EO) GO TO 21 
IFCGC'I).LT.0.)C-CTO22 
Z*XCLl)-f LCLI) 

J = 1 

G C T C 2 3 

22 CONTINUE 
2=3UCl:)-XCLI) 

J = c 

23 CONTINUE 

IFCCCICAC*I).LE.O.)GOTC24 

3ET£~i?SCGCI))/G(ICAC-»I) 

IFC3E T A .GE.Z)G3TC2* ' 

Z=2ETA 

D«.5*Z*AB$CGCI)) 

J*-l 

uCT02£ 

24 CONTINUE 

C®Z*CAESCG(I>>-.S*Z*GCICAC*I)) 

26 CONTINUE 

I F ( D . L T . DEDG0TG21 

0 £ L * 0 
ALPHA=Z 
IuUT= I 

1 IN® I 

IFC J.LT.O)IIN*C 
Lc- J 

21 CONTINUE 

I F C I OU'T * N £ . 0 ) GC T 0 29 
2? CONTINUE 

00*25 I ® 1 » N 
L I ® LT C I ) 

25 0=Q*XCLI)*CGCI)-ECLI)) 

C * . 5 - 5 2 
RETURN 

2 9 CONTINUE 
S I G ® 1 . 

I F ( G C 1 0 U T ) • 5 T . 0 • ) S I G = - 1 • 

LICUTsLT CICUT) 

LIIN*LICUT 
25 CONTINUE 

SAS=GCICAC+IOUTO 

:fck.cC.o)gct:3i 
DO 30 I ® 1, K 

30 GCI5>I)=GCI0+I)*A<ICUT,I) 

31 CONTINUE 

00 37 I®K1,N 
L I® LT C I ) 


IFC Li- Li CUT ) 3 2 1 


i * 


SQM A0260 
9QMA0270 
2QMA0280 
EQMA0290 
BQMA0300 


S CM AO 3 30 
BCMA0340 
9QMA0350 
BCMA0363 
9CMA0370 
9CMA0360 
BCMA0390 
B QM A 04 0 0 
BCMA0410 
2QMA0420 
3CMA043C 
BQMA0440 
BCMA0450 
BQMA0460 
S2MA0470 
32MA0480 
BQMA0490 
BQMA0500 
EQMA0510 
BCMA0520 
9QMA0530 
BGMA0540 
SCMA0550 
SCMA0560 
BCMA0570 
E CM A 0 5 60 
3CWA059T) 
9 CM A 06 0 0 
9 CM A 0 6 10 
9QMA0620 
BQMA0630 
SQMA0640 
BCMA0650 
SQM A 0560 
5CMAD670 
BQMA0680 
SCMA0690 
BCMA0700 
BQMA071 0 
BQMA0720 
BQMA0730 
SQMA0740 


BCMA0770 
B CM AO 780 
3CMA0790 

5CMA09CO 
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32 

Z»ACII,LI0UT> 

SQMAOSIO 


G0TQ34 

SQMAO 320 

33 

Z*ACLICUT,LI> 

BQMA0830 

34 

CONTINUE 

2 CM AO 3 40 


IFCK.EC.0)GQT036 

3CMA0850 


00 35 J= 1 . K 

2 OM AO 8 60 

35 

Z*Z-A(I, J)»GtXSO> 

8 CM A 08 7 0 

36 

GCIS»1)=Z 

02MAO88O 

37 

CONTINUE 

0CMAO89O 


G(IS*ICUT)=SAS 

3 Q M A 0 9 0 0 


IFCK.EC.0)GGT042 

B2MA0910 


G(IS>K)--A( I OUT » K ) 

SQM A 0 9 2 0 


I FCK, EC . 1 ) GOT 04 2 

BQMA0930 


I *K 

0QMAO84O 


00 41 I 1 = 2 ,K 

8SMA0950 


1*1-1 

BCMAO'9 60 


Z*- A( ICUT , I ) 

8QMA0970 


11 = 1*1 

2GMA0980 


00 40 J — I 1 , K 

? CM A 0 9 9 0 

4C 

Z«2-GCIS+J>*ACJ,I> 

SCMA1000 

41 

GC I S 4 I ) = Z 

53MA1010 

42 

CONTINUE 

5QMA 1020 


IFC A3S(SlG-l.).LT.1.0t-30) GO TO 51 



DO 50 1=1, N 

0CMA1O4O 

50 

GCIS+I)=-GCIS*I) 

BQMA1050 

5 1 

CONTINUE 

E2MA1060 


IF(K,e:.0)G0TO62 

3 2 M A 1 0 7 0 


CO 61 1=1, K 

8CMA1080 


IFC ADSCGCIS+:)).L T .l.QE-30) GO TO 61 



II=LTCI) 

B0MA1 100 


J = 1 

SQMA1110 


Z = ei(LI ) - X ( L I ) 

EQMA1 i 20 


IFCGCIS+I).L T .C.)G0T060 

3 C M A 1 1 3 0 


J = 0 

BQMA1140 


Z = EU(LI)-X(LI ■ 

PQMA11 50 

60 

CONTINUE 

BQMAl 1 60 


Z *Z/GC I S ♦ I ) 

SQMA1 170 


IFCZ.GE. ALPHA)GCT061 

9QMA1180 


A L P F A = Z 

SQM A 1 190 


L 6 * J 

8QMA1 200 


I I N = I 

F3MA1210 


L 1 1 N = L I 

8 C M A 1 2 2 0 

61 

CONTINUE 

SQM A 12 30 

62 

CONTINUE 

SQMA1240 


XCLI OUT ) = X(LIOUT) + SIG« ALPHA 

3CMA1 ? 50 


IF(K.EC.0)GCTO71 

3CMA1 260 


00 70 1=1 ,K 

5QMA1270 


LI=IT(I) 

5 QMA1280 

70 

XCLI)*XCLI)4AL°HA#GCIS*I) 

^QMAl 290 

71 

CONTINUE 

SCMA1300 


00 n I = K 1 , N 

9 C M A 1 3 1 0 

72 

GCI)=G(I) + AL = -^X<GCIi> + I) 

•: 2 M A 1 3 2 0 


I F < 1 1 N . fc 0 . 0 ) G 2 T 0 9 0 

?5MA1?30 


XCLI IN)*3LCIIT\) 

p OM A 1 3 4 0 


I F C L Q . E 2 . 0 ) X ( L I I N ) = : J C L 1 1 N ) 

-QMA1250 



- -itr* E.oJ 
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I F( 1 1 N . 6C • ICUT ) j CTC 2 0 

s GMA 1 3 60 


K2«K-1 

9CMA1370 


SG*G( I C* I IN) 

8QMA1360 


1 1 • I IN* 1 

8GMA1390 


00 80 I-Il.N 

5 QMA1400 

8 C 

G(IV*I)»A(ItIIN) 

IF<IIN*£Q.K)G0TC86 

90HA1410 

BQMA1420 


1 2* I IN* 2 

93HA1430 


S0-1./SG 

8QMA1440 


00 85 I * 1,1 N * K2 

8QMA1450 


V»C(IV*I1> 

8 CMA 1 4 60 


VO-V/GC I D ♦ I 1 > 

8QMA1470 


S1=S0*V*VD 

5 CM A 1 4 8 0 


R = S 1 / S 0 

8QHA1490 


G(iD*n«G<ic*n >*r 

8SHA1500 


BETA=VC/$1 

23HA1510 


IFCR.GT.4. )G0T0841 

8QMA1520 


00 81 J = I 2 , N 

8QMA1 5 30 

SI 

GCIV*J)=GCIV*J)-V*AC J, ID 

3QMA1 540 


IFCIl.GT .K2)GOTC83 

EQMA1 550 


DC 82 J * 1 1 # K 2 

5GMA1 560 


J1=J*1 

3QMA1570 

82 

ACJ,I)=ACJI,I1)*0ETA*G(!V*J1> 

B CM A 1 5 8 0 

83 

CONTINUE 

2GMA1590 


ACK, I)=BSTA 

3 GM A 1 6 0 0 


CD 8 4 J = XI , h 

8 CM A 1 610 

84 

A(J,I) = A(J,I1)*3>-TA*G(IV*J) 

3QMJ1620 


G 0 T 03 <♦ S 

?GMA 1630 

341 

CONTINUE 

9QMA1640 


IFCI1 .GT.K2 )G0TG343 

3 CM A 1 6 50 


DC '842 J*I1»K2 

3CMA1660 


Jl= J*1 

9QMA1670 

942 

A(J»I)*3ETA«GCIV*Jl)*A<Jl f Il)/R 

5GMA1680 

843 

CONTINUE 

6QMA1690 


A(K, I > = 3ETA 

3QMA1700 


00 3*4 J * K 1 # N 

2CMA1710 

344 

A ( J . I > = 6 E T A H &- < I V ♦ J ) ♦ A C J , 1 1 ) / R 

3 QM A 1 720 


CO 845 J = I 2 , N 

2QMA1730 

'845 

GUV* J)*G(IV*J)-V«A( J, 11) 

3CMA1740 

845 

CONTINUE 

3QMA1750 


LT(I)=LT(I1) 

9QMA1 760 


S 0= S 1 

9 CM A 1 7 7 0 


11 = 12 

9QMA1780 

U> 

GO 

12=12*1 

3QMA1 790 


S G * 1 . / S 1 

9QMA1 800 


LT(K)=LIIN 

8QMA1810 


G(ID*K)*S3 

8CMA1820 


IFCIIN.EQ.DG0TC851 

3 QM A 183 0 


1 1 * 1 1 N- 1 

9CMA1840 


DC 852 1=1,11 

2 CM A 1 3 5 0 


2 = ACIIN, I) 

5 C M a 1 960 


DC 853 J = 1 1 N , K 2 

8CMA1870 

853 

A( J» I ) = A< J* 1 , I ) 

3 CM A 1 9 SO 

352 

A(X , I ) = l 

9QMA1 390 

851 

CONTINUE 

2GMA1900 
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86 CONTINUE 

DO 87 I »K 1 » N 

87 G<ICAC+I)=G(ICAC+I)+SG*G<IV*I)*#2 
K 1 * K 

K = K 2 
1 1 N = 0 

ALPHA=1E75 

SAS C G( IC AC* IOUT ) r . r 

IF($AS.GT.O.)AL Cm A=ABS(G(IOUT))/SA$ 

I F ( G( ICU'T ).LT .0 . )GCT0898 
J = 1 

Z = X(LICUT)-EL(.LIOU T ) 

GOTO 8 ’39 

398 CONTINUE 
J = 0 

2*6U(LI0UT)-X(LI0UT) 

399 CONTINUE 
IF(Z.GE.ALFHA)GCT025 
ALPHA-Z 

L £ = J 

1 1 N = I OU T 

LIIN=LICUT 

G0TC25 

90 CONTINUE 
K 2 s k 1 t 1 

1PC Ac5CSIG-l.).LT. 1.0 5-30 ) GO TO 91 
DO 901 I = K 1 * N 
901 GCA5 + I)=-GCIAS + :) 

91 CONTINUE 
IF(I0'JT.EQ.K1)GCT097 
LTCICUT ) = LT(K1) 

LTCK1 ) = LIOUT 

G(IAS*ICUT)=G(IA5+K1) 

G(ICAC+I0UT)=GCICAC^K1) 

G(ICAC+K1)=SAS 

G(ICUT)=G(K1) 

IFCK.EC.O)G-0TO93 

DC 92 I = 1 i < 

Z=ACK1»I) 

A(K1«I)=A(ICUT»I) 

A ( I 0 'J T , I ) = Z 
CONTINUE 

I F ( K 2 . E C . I C U T ) G C T 0 9 5 

I I = I GUT - 1 
DO 99 I*K2» II 
ACIQUT »I)-A(I*K1) 

CONTINUE 

IFCIOUT »EC.N)G0TC37 


92 

92 


99 

95 


96 
9 7 


1 1 * i . j t ♦ i 

CO 9c 1 = 11 
A C I % IOLT)=A(I * K 1 ) 
CONT INUE 
GCK 1 )=C. 

K = K 1 

IF(K.EC.N)GCT027 


BQMA1910 

■3QMA1920 

SQMA1930 

BQHA1990 

BQMA1950 

BGMA1960 

3CMA1970 

6QMA1980 

B 3HA 1 990' 

5 QM A 2 COO 

BCMA2010 

BQMA2020 

8QMA2030 

BQMA2040 

SQPA2050 

C 0 MA 2060 

BCMA2070 

SQMA2080 

60*92090 

ECMA21 00 

93MA21 10 

BQMA21 20 

BCMA2130 

9 0 M A 2 1 9 0 

B-3MA2150 

°2MA2170 
BGMA21 30 
BQMA2190 
BCMA2200 
BQMA2210 
BCMA2220 
B0MA2230 
BQMA2290 
BGMA2250 
8CMA2260 
BQMA2270 
BQMA2290 
BCMA2290 
BQMA2300 
B0MA2210 
B5MA2320 
BG M A2?30 
B0MA2390 
9QMA2350 
BQMA2260 
BQMA2370 
BCMA2380 
5 C m a 2 3 9 0 
32MA2900 
3 0 « A 2 9 1 0 
E0MA2920 
5 QM A 24 30 
B 0 M A 2 9 9 0 
BC M A2950 


DC 93 I * K. 2 , N 
Z*G(IAS*I)/SA 3 

*ci,kd*z 

9 3 GCICAC + I)=GCICAC^n-Zv3CIAS+I) 

* 1 =K 2 

GOT 020 

END 

SU 3 RGUTINE S -3 Of* 3 CN , i » I A , 5 , K) 

DIMENSION a<IA,I),G(l) 

IFCK.*C.O)RETURN 
1 0 * N N 

GCN«H) = i./G(ID + l) 

IPCJt. EC, 1 )R. ETURN 
N 1 *K -1 

DC 111 1*1, M 
I 1 =I *1 

A(I 1 ,I)*-ACI 1 ,I) \ 

IF(I.£C.M)G2 T 01C2 

1 1* 1 + 2 

03 101 

i*ACj,n 

ji= j-i 

CO 100 L=Il,Ji 

100 Z = 2*A(J,LmCL,I) 

101 A( j,I)=-Z 

102 CONTINUE 
AA* 1 ./GCID*X 1 ) 

GCN*Il)*AA 

do in j= 1 1 : 

2 =A C 1 1 , J)$ A A 
G(N*J)*G(N*J)*Z*ACI 1 ,J) 

IFCZ.EC.DGCTClll 

J 1 =J *1 

DC 110 L = J 1 * I 

11C A(L»J)*A(L»J)+A(I1»L)*Z 
111 A(I1,J)=Z 
RETURN 
END 

SuEROUTINE ALAGBCN,N,X) 

REAL XCN) 

COM«ON/ALAOC/=» t^-L , IS , ** »NU 
CCMMQN/ALAGC/GC 50) 

COMMON/ALAC-E/CC 150 ) 

CCPMON/ALAC-F/G-CC 25,50) 

COMMON/ALAGG/TC 150 ) 

C0MM0N/SCAL£/V$CAL(22) ,CSCALC4C),FSCAL 

COMMON/CCNS/XMl,XM2,XM3fX'*4 f XM5,XM6.XM7 f XM8,XM9,XM10,XMll, 
lXM12.Xf'12,XNlA,XM15,XMl€,XMl7 f XM15,XM13,XM20,XM21,XM22,XM2-3,XM2*, 
1 XM 25 , X M 26 , XV 27 ,X« 25 , PC, rl, EC, VST, VEE,TS~,TSr, 

1 VC,TND,TF 0 ,TRE,PEl,P= 2 ,e S 1 , E 5 2 , 8 S 3 , V R , RCKCK , 01 » 

2 jC,OK3,DK.4,OK6,XS,KH,S, c R,RT 

X 1 *X Cl) * V S C A L C 1 ) 

X 2 = X C 2 ) * VSC AL ( 2 ) 

X3=X ( 3 ) *VSCAl( 3) 

X 4- X (4) * V S C A L C 4 ) 


3 Q N A 2 4 6 0 
3SKA247C 
E3MA2450 
BCMA2490 
BGWA2500 
BQMA2510 
BGNA2520 
SCH50010 
BCMB0030 
BSNB0040 
3CNB0050 
32*60060 
2CM50070 

eiM30080 

BQHB0090 
BCMS0100 
52MSOUO 
50M50120 
00*30130 
52*60140 
BCNB0150 
SCMBC160 
52*60170 
B CMB01 80 
33*301 90 
B2MB0200 
BC*B0210 
8QMB0220 
BCMB0230 
B2*BC24Q 
BCHB0250 
B2MB0260 
5QMB0270 
50*50280 
52*50290 
eQ*B0300 
BQMB0310 


SUN00030 

SUM00C35 

SUMOOll 

SUMOO 


ALA6 

BUILT-IN 

SUBROUTINES 

1 

USER SUPPLIED 
SUBROUTINE 
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X 5 = X C 

5 > 

*VSCALC 5) 

fz-> C 

■6) 

*vs:alc £) 

X 7 = x (7) 

♦V3C4LC 7) 

X 3 = X C 

./•v -V 

5 > 

SVSCALC £) 

X 9 = X C 

2 ) 

j?vsc:LC 9) 

X10=X 

CIO) 

*Y 5 CALCIC) 

X11=X 

Cll) 

#VSCALC11) 

XI 2 = x 

Cl 2) 

♦VSC4LC12) 

X 1 3 = X 

(13) 

*V5CALC13) 

X 1 4 - X 

(14) 

*V$C4LC10 

X 1 5 = X 

£15) 

*VSCALC15) 

X 1 £ = X 

C16 ) 

4= VS CAL (16) 

- X 1 7 = X 

(17) 

4VSCCLC17) 

X 1 8 = X 

(18) 

♦VSC4LC18) 

XiS = X 

(19) 

XrVSCflLCIS) 

X 2 C = X 

(20 

♦V5CALC20) 

X 2 1 = X 

C 2 1 ) 

*VCC ALC21) 

X 2 2 = X 

C 2 2 ) 

*V 5CA L( 22) 

DITEC 

£,£999)X1,X2,X3 


ro 

1 , 


C 399 3 'CRMATC'OTEST - c X VftLU'* 8313.8) 

IOC Yl=SI#CXl«Xl*Xil+X4*X4*X12^X17«X17*X223 

V'*XVl«CX2*X3^xZ^X2X»Xl + X6*<£*X5*X5*X4+X13«Xi9^Xi**Xl':*X17) 

Y3 = G(C3«X9 + CX4x=X10 + CX6<=X21 
T4=P0*C1./X8-1. )/>CF*PC/XS/KS 
r =Yi+Y2+r34r4 
F=-/ C SCAL 

r :F = CX,*w/X3)**2-CX13-*-X14) , „ N 

P3*CXM«.*XKS/Xe)*CVS7>. 14=VBE)-*-X*iQ*CXM4*XMll/X3-i-XM9*XM12/X20) 

?C = XK7*V0/X6«'XM15*CXM44-'X M ,I3/X3*XM9*XM14/X2O 

P0F = CX8 4/X8)=Fs:2*Xi6-*-XM9:»X*94<CX16 + RCKCK*XMl£/X21)/C3 .^X2C*X20)-K 
1RCKCX/X21)*CXM16*XW7*X=2*X“,7*X*4/X8/X8-2.*XM7*XH7/X8 3 
2^X, M 17»XM3«X2 2/X1S/X13 
7 CC1)=?C*C1 ./Xe-l . 5-PIF-PQ-PC-PCF 

3 C ( 2 ) = X 1 2 £X 3 <= X 3 - X M 2- X 1 SX 2 £X 2 

12 CC3) = Xl4*X6sX£-X.*2*X5*X5*X4 

? CC4 )-X9*X5 + X15*XlS«X9Xt<=3/X7- 3 rl^*2^CX10*XlC+CX15*X15*XS/X7)^ 

lCX9-XiOSXM18)**2) 

CC5)=X1*X1*X2*X2-X74>XM4/CX8¥8S1) 

13 CC£)=X4*X4*X54=X5-X7*XM4/CX34‘eS2*?E2) 

C C7 ) = X *6=FX3*X 2-)tl l*X M3 ♦. 5*X1 
CC8)=XM6$X6*X5-X1 2*XM3*. 5*X4 

2 CC9) = X17^X17«X1 3^X13- CX 20/85 53- 'KXM4/X8 + XM9/X20 3 

C(10=XM6*X13*X15-X22fcXM3*.5=m7 

CCD - vR-CX”-/x- ♦ XP9/X20)*RCKCK/X21/£3-XM7*Xf«S/2/ c R/X21/EQ 
:C12> = /1 6=?X1 DX 1 9- Y ■« 2 vX 1 S*X 1 8*X 1 7 

C(13>=-l.G + XX2S*X‘4 27*X7*X13*X2 0*CX!*28*X7/X15-i.G) 

CC14)= . 969-X8 
11 €053 * RT— X 1 3 -X 1 4 

C (16) *X 1 0-1 • E-6 
C Cl 7>=X9 - l.E-6 

C U R X T E (6*8994) CCCI), 1 = 1,17) 

€8994 fCPyiT (£15.6) 

** 1 V ^ X = 1 , — i~ 

103 cci7+:>*xci) 

GCi )=5:*X11*2«X1+XM1*X3*X3*X2*X2 


] 


CONSTRAINT 

EQUATIONS 


DERIVATIVES 

OF THE OBJECTIVE FUNCTION 




ORIGINAL PAGE IS 
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SC2)*XPl$X3*X?*Xl*2*X2 

GC3)*XM1$X 2*X2*XX*2*X3 

GC4 ) «0I*=Xi2* 2*X4-t-XMl*X6*X6*X5*X5 

GC 5)=XH1*X6£X6*X4*2*X5 

GC6)=XM1*X3*X5*X4*2*X6 

G(7)=0.0 

G(6)=-P0/XS/X8/KH-P0/KS/X8/XS 

GC9)=DK3 

G ( 1 0 ) =DK4 

GCll)*CI*Xl*Xl 

GC12)=CI*X4*X4 

GC17> = CI«X22*2*X17*XM1X=X19«X19^X18*X1S 

5U8)*XMl*Xi?$XlS*Xl-7*2*X13 

GC1S)=XP1*X18*X18«X17*2*X19 

GC21)=CK6 

3C22)«DI*XI7*X17 

GC(8» 1) = - :: C/X8/X8 + C2./X3^^3 3«XV4*X»«6«CX13*X1<.>*CXM4*XM8/X3**2)*(V 
iST*.l*V5 2 3 + X*1iO*CX«<4*XHll/X8*«) 

24Xf'7*VD/XS**2«-XP15*CXM4«XM13/X3**2)-K2./X8*«3)*XM4**2*X16 
3+2.*RCKCK*XK7*XM4/X8**3/X2l-2.*RCKCX*XM7*#2/xe/X8/X21 - • * 

GCC13»!?3=-CXM4/XS)**2 
GCC14,1)--CX'*4/X8)«*2 

SC<15,1>«-CX«4/X8>**2-X»»9**2/C3.*X20**2> 

GCC18 ,1)=2*XM17*XM8*X22/Xi9/X18/X13 
GC<20tl3*XM10«H9*XH12/X20**2*XM15*XM9*XMl4/X20**2 
l4 2.*XM9**2*(X164RCKCK*XI*16/X21)/C3.*X2&«*3) 
GCC21«l)*X»'S**2*XM16*RCKClt/X21/X2l/C3.*X20**2)<KRCKCKVX21/X21)* 
1CXM16*XM7$*2*XH7*XK4/X8/X3-2.*XH7**2/X8) 

GC ( 22 » 1 ) S “XH17*XH8/X1 8/X18 

GC(13,2)=X3*X3 

GCC3,23=X13*2*X3 

GCC2* 2)*-XM2*Xl*2*X2 

SCC1.2-)*-XM2*X2*X2 

G C C 1 4 * 3 3 s X 6 £ X 6 " 

GCC6«3>*X14*2#X6 

GCCS*3)=-XK2*X4*2*X5 

GC(4,3)=-XK2*X5*X5 

GCC15 ,4W.*X15*X9**3/X7-P = 1*F = 1*C2 . *X 1 5*X9/X7)*C X9-X1 0*XH1 8 3**2 
GCC9,O = 2.*X9-*.3.*X9*X9*Xl5*X15/X7-PEl*PEl*C(X15*X15/X7)*(X9-X10* 

:XK13)«2+CX1 5SX15*X9/X73$2.*CX5-X10$XM18)3 
GCC 7 , Os-X13*X15*X9#*3/X7/X7«-PEl*P = i*(X15*X15*XS/X7/X7 3$CXS-Xl 0* 
1XM16>**2 

GCClQ,4)=-PEl*PEl*C2.*XlO-CX15«X15*X9yX?3*2.s(X9-X10*XM183*XMie3 

GCCli 5)*X2*X2«2*X1 

GCC2»5)*X1#X1*2*X2 

GCC7,5)=-X«4/CX3*3S13 

GC(3»5)=X7*XM4/(8S1*X8*X8) 

C-CC4 ,63*X;3X=*2$X4 
GC(5,6> = X4«X4*2=>X5 
GCC7,S3=-XM4/(X8*3S2*PE2) 

GC(8»63*X7*XM4/CP£2*3S2*XS*X53 
GCC2.73»XM6*X3 
GCC3,7) = Xf«6*X2 
CCli » 7)*r»v; 

GC(1 9 7)=.5 
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104 

101 

102 

CS995 


GCC5, 85=XM6*X6 
GCC6,35=XK6*X5 
GCC12,35=-XM3 
GC(4,8)*.5 

GCC17,95=X13*X18*2*X17 

G€C18,95=X17*X1?*2*X18 

88 ( < i!iH;iSJS!^x s 5 JJ?^l? i/ES5<cx20/!SS>,,x ' ,s/,,2,> *« 

GCC18 , 105=XM££X19 
GCC19,1Q5=XM6*X18 
GCC22 » 1 G 5=-XM3 
GCC17,105=.5 

GCCs, 111 * C X . M « 4 / X 8 / X 3 > $ R C K C K / X 2 1 / E 0 
GCC20.il) * CXMS/X2Q/X205*RCkCK/X21/EO 

, §C C2 1 . 1 1 5 = CXM4/X S+XM9/X2 0)^RCKCK/X21 /X21 /EC4XM7*XM8/2/ FR/X21/X21/E 

GCC1S,125*X1S*X19 ' 

SCC1S, 125=X16*2*X1S 

GCC16»125=-XM2*XI7*2*X13 . . 

GCC17,12)=-X^2*X13*X1S 

6CC7»12) = 2.0*XM26*XM27*XM23*X7*X10*X20/X15-XM26*X**’7*X1C*X20 
GCUQ*13)=XM26*XM27*X7*X20*CXM23*X7/X15-1.0) XZD 

G rrH.* 1 ?^~ X * 26XtXM27 * X * 28 * X7 **^*X10*X20/X15**2 

rr9e 2 ?'ji 5) T XM26 * XM274XT * X1 '° ,J>CXM2e<tX7/)( 15-l .0) 

GCCS , 1 4 > *- 1 . 

GCC13,155=-1. 

GCC14,155=-1. 

GCCIO. 16>=1. 

GCC9, 175=1. 

DC 104 I =1,22 
GCCI»l4i?5=l.G 
DC 101 1=1, N 

G C 1 5 * G C 1 5 * V S C A L C 1 5 / F 5 C A L 

CONTINUE 

DO 102 1*1, M 

C C 1 5 = C C 1 5 /C $ C A L C 1 5 

DO 102 J=1 , N 

GCCJ, I5=GCCJ, I)«VSCALCJ)/CSCALC1) 
fCE^c9555 CCCI5, 1 = 1, M5 


o o 
**» » 

-o 55 
o z 
o > 
30 r 

c 5 

gs 

3 35 


USER SUPPLIED 
SUBROUTINE 


FORMAT 

RETURN 

END 


C4E15.6) 
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APPENDIX P: DERIVATIONS OF CONSTRAINTS FOR BUCK-BOOST CONVERTER 


Derivations of constraints which similar to the Boost Converter are omitted 
here. They can be derived using the same approach as illustrated in Appendix A. 

F.l Basic Relationships for Buck-Boost Converter 


With reference to Fig. 1.3, one can derive the following basic relations 
Input-output relationship 
Transistor Q on: 

A<ji(+) - flux increase In the energy storage inductor T 


E.T 
i on 


Transistor Q off: 

** flux decrease in the energy storage inductor T 


EI ff 
o off 


When in stead state: A<f>(+) * A<|>(-) 


nx N 

on . s 

, where n - — 

off ”p 


(F.l) 
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Peak to Peak ripple Current 2d: 


Transistor Q on: 

current increment in the primary winding of T 

E E T 

41<t) - 2d - — ( E °+ nE| y • (F.2) 

p v o i 

Note: Derivations of transistor and diode loss constraints which are 

similar to the Boost converter are omitted here. 

P >2 Output filter ESR Loss 


Referring to the waveform of Fig. 6.2. 
(-1, 0 < t < I 


c5(t) 


on 


2d 


l n(T on -T) 

r T 


(t-T ) + I, - I rt + Ton < t < T 
' on 1 on 


ESR loss * ^ 


i c5 (t > tl c5 <t) V dt 


0 


(F.3) 


1 

T 


rT 

C T 

— — ■ 

° n 2 1 
(-x o ) 2 dt+i 


2d (tT ) +1. - I +“ 

n(T -T) ' on' ion 

0 

T 

on 

on — 


~ I 2 + 

T O 


T 


1 - 


on 


“ ,2 I. ' 

M> + <v-v 


dt 


(F.4) 
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Substitute 


T " E + nE, A " T E 'f nE. ’ 

O 1 o 1 

p E + nE. E,£ 

T _ o _e i , A m 

X i "^fT E q d 2L p (E o + nE 1 >F 


into the above equation and we can get 

2 


ESR loss ■ 


E P 
o o 


nE. 


<E o + nE t ) E ( 


E + nE. 
o 1 


2 2 
E i E o 


2 5 2 2 
12n Z hj (E^ + nE i ) F 


p o 


* 

< E „ + " E i> P o 

P 

o 

2 

nE E.eff 

~ E 


o i 

o 






(F.5) 


F. 3 Frequency dependent Source EMI Constraint 


Referring to the i Q - -= — t + (I ± - d) , 0 < t < T Qn 
" on 

By Fourier series expansion 

OO 00 

l_(t) - G + l \ COS kcoot + l B sin 

Q ° k-1 k-1 


ka>ot 


where ^ 


‘on 


iq(t) sin kwot dt 


B k " T 


on 


iQ(t) sin kwot dt 


(F.6) 


(F.7) 
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fundamental sine component 
/T 

2 

T 0 


L on 


+ (X, “ d) 

ori x 


cos b t dt 
o 


2d 


21 sin to T „ 

— - sin to T . + cos to T nn + — = — 

to T o on w 2 t t o on to T 

° o A ° n * ° 


4d 


to T T 
o on 


fundamental cosine component 
fT . 


2 

T 


on 

n i„(t) sin ui t dt 
0 Q o 


2 r T 

T jo 

-2d 


on 


_2d t + (I t - d) 


on 


sin to t dt 
o 


to T 
o 


, , 21 cos to T 

cos to T„ r , 4- — n slnto T . 

o on 


o on ' o 
° to 4 t> t 

- J on A 


“o T 


„ 2<I i' d > -id 

"f '> “f" 


to T 
o 


to T 
o 


Now add the square of and 


2 2 
A 1 +B 1 


21 , to T 

i . o on 
sin — r — 


IT 


2d 

IT 


COS 


to T . 
o on 


, to T 
sin __o__£_ n v 

. 21 I 

to T i 

o on 


2 2 2 2 

let A 1 + B = A + B 


,21. to T . 
, * A i o on. 

where A = — — sin 


ir 


B ^ — 


cos 


to T sin r, 
o on 2 


to T . ^ 
o on 


i0 T 

o on 


(P.8) 


(F.9) 


( P.10) 
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•:> y | l | t , W li» 


For Buck-Boost converter 


p „ < E „ + nF -i> 


1 elfE. E 
* o 


Ton - 


E T 
o 


E + nE. 
o 1 


d - 


E .E 
1 o 


2L (E 4 nE,)F 

P O A 


The EMI constraint becomes: 


Required attenuation at switching ft&quency 


EMI requirement 


Fundamental switching current 
S 

>r 14. ( — L„) 


^ A 2 + B 2 


( F. 11) 


(*. 12 ) 
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APPENDIX G: Buck-Boost Converter Computer List 


In this appendix, a complete computer list for the Buck-Boost converter 
Is given. V or the Buck- Boost converter the design unknown variable array 
is chosen as following: 

x (1) - 

X<2) - 

xO) - 

x(4) ” '/k ~2 

x(5) “ 

x(6) \/T^ 

x(7) - h x 

x(8) - eff 

x(9) - C 3 

x<10) - C 4 
x(ll) - Z 1 
x(12) - Z 2 
x(13) - R l 
x(14) - R 2 
x(15) ■» R 3 
x(16) ■> R p 
x(17) - /T 

x(18) - v¥" 

P 

x(19) * sr p 

x(20) - L p 
x(21) - C 5 
X(22) - Z p 
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ORIGINAL PAGE 13 
OF POOR QUALITY 

After the variable array is chosen, the user can start to simplify 
the constraints and chooses the constant terms of the constraints, and then 
take the first derivatives of all the cnstraints with respect to their own 
variables, then he can put all this information in computer code ready to 
use in the program. The constant terms, constraint equations and their first 
derivatives are shown as following: 


G. 1 Constant terms : 

XNE I = XN*E I 
P I ■ 3 . 14159 2 654 
X M 1 * 4 „ # F C * I C 
X M 2 * 4 . # R C v P C 
XH3*l./(2.i!--PI) 

XM4 = PQ/E I 

XM5=SQRT (1*/FW/PI) 

XM6*E04XNEI 

XM7=PC/EC 

XM8«CEC4XUEI)/(fiI*E0> 

XM9*EI*ED/CE04XNEI)/FR/2. 

XH10«FR*((EC4V0)/XMSl42.*VST>/6. 

XMU«TSF4TSK 
X M 1 2 = T S F - T S R 
XM13*TN04TFC43.$TRE 
XH14=TNC-TFC-3.*TRE 
XM15*EC*PI/CE04XNEI) 

XM1«*EI/<EC*XNEI)/XN 

XM17=tl76vSCRT(FR) 

XM18*1 .41 ./PE2 
XM13=FR/PE2 

XM2Q = (2.*PC*XM3/PI*SIN(XM15;)*FR)**2 
XM21=CC1/PI/XM8)*(C0S(XM15)-SIN(XM15)/XM15))**2 
X M 2 2 = 1.4FR*FR/2000.*#2 
XM23«(S*FR>#*2 

XM24=5/CSCRTC1.4FR*F8/2000.**2)*EC/PI**2*S1N(PI*CEO-EI)/EI>) 

XM25=FR*FR*XM24 

XM26=8.*PI**3*FR*«3/PE2 

XH27*SCRTC1.4CFR/2000.)«*2>/S 

RCKCK=RCK$CK 

X M 2 8 = 4 . * P 04* 2/ P 1**2 * < S I K ( X H 1 5 ) )** 2* X M 8** 2 

XM2 9«4.#XMS**2/PI>l'*2<i(CCS<XP15>-SIN<XMl5>/<P15>**2 

X.M30 = 4.*PI**2*FR**2 

G • 2 Constraint equations and objective function (F ) 


Y 1 = s : * c X 1 * X 1 # X 1 1 4 X 4 * x 4- # X 1 2 4 X 1 7 * X 1 7* X 2 2 > 

Y2=XM1*(X3 4- X3*X2*X2*Xl4X6*X6*X5*X5*X44X19*X19*X18*X 1 8 * X 1 7 3 

Y3»0K3X<X94DK4«X 104CK5X?X21 

Y4«P0#( 1./X8-1. J/KF4P0/K5/X3 

F=Y14V24 Y34Y4 

PIF»(XP4/X8)**2*(X134X14) 

P < X H4 / X 6 ) *(V$T4.1*V5E>*XP10#(XM8*PO*XHli/X84XM9*XM12/X:0) 

PD = XM7«V':./X8 4(XM6*FR/i; , ./XN)!X(PO^Xye«XP13/X8*XM9X«Xr'14/X20) 

PCF = EC/XP6^XM7«^2^RCKCK/X2l4(X^16=XPCKCK/X2l4X16)*CP0«PCX=XM8*X-.2/Xe* 
l*24XM9««2/3./X2C-;-*2 )4XP7*^2«CX\«E I/XM6-2 ./X8 )X«RCKCK/X21 41 ./X^S/XIS 
2**2*XM17*X22 

€<l) = PCvCl./X8-l.)-PIF‘-PQ"PC“PCF 

C(2)»X13*X3*X3-XM2*XlvX2*X2 

C(3)=X14*x6*X6-XM2*X5*X5#X4 

CC4) = X9*X94X15*X 1 5*X9**3/X7-PE1**2*(X10*X104 CX15*X15*X9/X7)* 
1(X9-X10*XM18)**2) 


ORIGINAL PAGE IS 
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C(5)«X1*X1*X2*X2-X7*XM4/CX8*BS1> 

C<6)*X4*X4*X5*X5-X7<‘XH4/(X3«3$2<'PE2) 

C<7)»XP5«X3*X2-X11<<XM3*.5*X1 
C(8)*XP5*X6X>X5-X12«XM3 + .5*X4 

C<?)*X1 f*X17*Xl 8* X 18-CX 20/8 SP>*<XH8 *p 6/X84XH9/X20> 
C(10)»XP5<‘X19«X13-X22iO>XP3 + .5*X17 

Ctin » VR-(PO*XM8/XN/X8*XP9/XN/X20>*RCKCK/X21/EO-PO/2./XM6/FR/X21 
C(12)«Xl6*X19*X19/2.-XM2*X18*X18*X17 

, CC 13)»XM26PX7**2*X 1 0 / X1 5-XM3 0*X7*X 1 0-XP2 7*( XM28/X 8**2* XK29/X 20P*2 ) 

C(14>«. 97-X8 
C(15)“RT-X13-X14 
C(16)*X10-l.E-6 
C(17)*X9-l.E-6 

G. 3 FiriiVt derivatives of the constraints and the objective function 
(1) Derivatives of objective function 

G(5)=XM1*X6*X6*X4*2.*X5 

r£j%“ X Eiw5f*5 5!m * 2 «* X6 

^|^®"P0 /X 3 / X 8 /K H -P0/KS/X3«*2 

GC 10 j=CK4 

G(U)»DI*X1*X1 

G<12)=CI«X44X4 

G(17) s 0IX'X22X t 2»X<X17>XMlsf ! Xl9X>X19:‘<Xl c axiP 
GU8)=XMl*X19*X19*X17*2.*X18 * ® 

«i?j:SH wl . mi8 * xl7 ^ :S5 i* 

G(22) - DI*X17*X17 


Where G(i) is the derivative of the objective function with respect to 


variable X(i) 


(2) Derivatives of the constraints 


In the following GC(j,i) means the derivatives of constraint C(i) with respect 


to variable x(j) 


>*(V 



4X21/X6**2 
GC<13.1)«-CXM4/XB)**2 
GCC 14 , l >*-(XM4/X8)*#2 

GCC 16, 1 )=-PC*PC*XM9**2/X 8**2-X w 9*«2 / C 3.«X20*X20) 
GCC18»1)*2./XP8/X18**?«XM17*X22 

GCC20,l) = XV10*X^9*Xyi2/X20**2*CXM16* : ?CKCK/X21+X16)*2.4CX M 9**2/ 
1(3.*X2CX<X'3))4'(XP6X«FR/12./XN«XM9*XM14/X20X'*2) 

G C ( 2 1 i l)sEC/ , XM6«XM7*#2XtRCxCK/X21X«*24XMl6X‘RCKCK/X21«#2X«CPC>X*':>!«XV8 
1 * # 2 / X 3 * # 2 ♦ X « 9 * X ff 9 / ? . / X 2 C * * 2 ) ♦ X » 7 * * 2 * ( X N # E I / X V 6 - 2 . / X 3 ) * P C \ C K / X 2 1 # 
GC(22.1)=-1./XN?/X13v*2vXM17 
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GCC13,2)=X2*X3 

GCC3,2)*X12#2.#X3 

GCC2,Z)--X^2*X1*2.*X2 

GCC1.2)*-XK2*X2U'X2 


UUlll.f-nv'rv 

GCC 6 t 3 )*X 14 X' 2 .X'X_ 

GC( 5 t 3 ) = -XM 2 X<X 4 s;: 2 .X>XS 

GCC 15^)*2^XlsJx9«*3/X7»Pei«PEl*(2 ,*X15*X9/X7)*C X9-X10<;XM13 )J*2 

GCC9,$)«2.*X9O.#X5*X9*X15>0'X15/X7-PEl*FEl*<CX15*X15*X9/X7)*2.*CX9 

l-X 10 *XMl 6 )*(X 9 -X 10 *X» 1 ie)** 2 *X 15 «‘* 2 /X 7 ) 

GCC7,4) = -X15*X15*X9**3/X7/X7*PEl*PEH'CXl5*X15*X9/X7/X7)»KX9-XlCi!‘ 

1 GCClot?) = -FEl*PEl*C2.<‘X10-CX15*X15*X9/X7)*2.*CX9-XlO*X*13)*XMlS) 


U w v i f ^ r j t i ^ t ^ 

1XM13K*2 

GCC10.4) = -FEl;XPElvC2 
GCC1.5)=X2*X2*2.#X1 

, 5 > = X 1*X1#2.*X2 

, 5) = -XMWCXS*3Sl) 

SI V V V f / 

GC(4,6) 


GCC2, 
GCC 7, 
GC C 3 * 


5)=-X^4/CX8*3Sl) 
5)=X7«XM4/(eSl«X8*X8) 
on.*>6) = X5*X5 #2.*X* 
GCC5»6)*X4$X4#2.*X5 
GCC7.6)*-XM4/CX8*BS2$PE2) 
GCC8,6)=X7*XM4/CPE2«3S2*X8*X9) 


GCC2,7)=XM5*X3 
GCC 3, 7)=XM5**2 
GCC H , 7)=-XM3 
GCC1,7)=.5 
GCC5.8)=XM5*X6 
GCC6.6) = XM5’I : X5 


GCC 12*8>- — XM3 
GCC4*3)=.5 

GCC17,9)*X18#X13*2.*X17 
f C C 1 8 S)”X 17 £X 17 #^*$X 18 

GCC2o!9)*-(XM8#PO/X9*XP9/X20)/BSP*CX20/BSP)*XM9/X20**2 

GCC8»9) = X20/BSP s :<XM8$PO/X8Xs*2 

GCC18,10)*XK5*X19 

GC(19»10)=XP5#X13 

GCC22.10)=-XP3 


GCC 17 . 1 0 ) = • 5 

GCC8.11) « P0*RCKCK* X v 3 / C X N*X 8 *«2* X 2 1 ) / EO 

GCC21.il) = CXM3$PC/X6 + XM9/X20)/XN«RCKCK/X21S*2/Ea*PO/C2*>O<XM6*FR 
1 AX 2 1 ** 2 ) / E 0 

GCC20.11) - XM9*RCKCK/CXS*X20**2*X21 ) / E 0 

GCC 16, 12)=X19*X19 #.5 

GCC19, 12)*X16#X19 

GCC18,12)=-XM2»X1 7* 2. AX 18 

GCC17, 12)*-XM2*X1 8AX18 

GCC7»13)<*2.*XM26*X7*X10/X15-XM30#X10 

GCC8,13) = XM27«W2S/X9 A* 3/SCRT(XM28/X8AA2-t-X w 29/V20AA2) 

GCC 10 , 1 3 )=XM26AX7AA2/X1 S-XM30AX7 
GCC15,12)=-XM26AX7AA2AX10/X1 5 A * 2 

GCC20»12)=XM27*XM2S/X2C**3'SORTCXW2e/Xe**2+XM29/X20**2) 

GCC6 ♦ 14 > = -l . 

GCC13. 15)-~1. 

GCC 14,1 5>»-l . 

G C C 1 0 * 16 5 = 1. 

GCC 9.1 7) =1. 
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With the above information available, the user are ready to combine It with 
the subroutines and ready to run his own program. The detailed computer pro- 
gram are provided in the following with some notes on it for the users to 
reference. The main program is out in the front and the user's supplied sub- 
routine ALACB is put at the end. 

G .4 Computer List 

A complete list of buck/boost converter optimization program is 
attached. 


” 1 54 - 


10 


in 

in 

i 


103 


REAL LI ,L2.L5,KC.DK3,DK4,DK5,KS,KH,S 
DIMENSION X (22) 

DIMENSION EPS( 22 ) 

COMMON /CONS/XM1 , XM2 • XM3 , XM4 , XM5 » XM6 , XM7 , XM8 ,XM9,XM10 .XM1 1 , - 

1XM12.XM13 ,XM14,XM15,XMi: ,XM1 7 ,XM 18 , XM 1 9 , XM20 , XM21 , XM22 »XM2 3 , XM24 , 
1XM25, XM26,XM27,XM28,XM29,XM30,PO,EI,EO,FC,FW,RO,VST,VBE,TSR,TSF , 

1 VD,TND,TFD,TRE,PE1 ,PE2 , BS l , BS2 , BSP , VR , RCKCK. , DI , 

2 DC,DK3,DK4,DK5,KS,KH.S,FR,RT,XN 
namelist/con /po,ei,eo,fc,f-w,ro,vst,vbe,tsr,.tsf , 

1 VD,TND,TFD,TF.£,PE1,PE2,B SI ,BS2 , BSP , VR, RCK ,CK , DI , 

2 DC,DK3,DK4,DK5,KS,KH.S,FR,RT,XN 

namelist/parmet/ pif.pq,pd,pof,pcap,pmag,pt,sigmap,ws,wh, 

1WI WW WC WMAG W 

NAMELIST/PARMS/N,M,K,MAXFN,IPR1.IPR2,IW,M0DE,AKMIN,DFN 

NAMELIST/XIN/X 

COMMON /AL AGE/C ( 150 ) 

COMMON/ ALAGF/GCC 25, 50) 

COMMON /ALAGG/TC 150 ) 

COMMON/ALAGI/G2P( 325) 

COMMON/SCALE/VSCALC22) ,CSCAL(39) ,FSCAL 
READ(5,10)N,M,K,<AXFN.IPR1 , IPR2 , IW , MODE 
FORMAT (1615) 

READ(5 , 20) AK MIN.DFN 
HRITECb. FARMS) 

READ(5 ,CON) 

WRITE (6 ,CON ) 

FSCALsi.O 
CSCAL ( l)=l.0E+0 

2) sl.0E-9 

3) 51 .OE-IO 

4) *1.0E-10 

5 ) = 1 . OE-5 

6 ) = 1 .OE-5 

7) *1 .OE-4 

8 ) =1 . OE-4 

9)»1.0E-4 

CSCAL (10)=1 .OE-3 
CSCAL(il)=1.0E-2 
CSCAL(12)=i.0E-9 
CSCALU3)*1.0E-2 
CSC AL ( 1 4 ) * 1 • 0E+0 
CSCAL(l5)=1.0E-3 
CSCAL(16)=1 .0E-1 
CSCAL(17)=1.0E-5 
DO 103 1*1 f N 
CSCAL(I+17)*1.0 
VSCAL ( l)=1.0E-3 
VSCAL( 2)=1.0E 0 
VSCAL ( 3)*1.0E-4 
VSCAL ( 4 )=1 • OE-3 
VSCAL ( 5)=1.0E 0 
VSCAL ( 6)*1 .OE-4 
VSCALC 7 ) = 1 • OE-4 
VSCAL ( 8 )*1 . OE-1 
VSCAL ( 9)*1.0E-5 


CSCAL ( 
CSCAL ( 
CSCAL ( 
CSCAL( 
CSCAL ( 
CSCAL ( 
CSCAL ( 
CSCAL( 


SUM00030 

SUM00035 

SUMOOU 

SU 

SUM00110 

SUMOOU 

SU 


MA1N0050 

MAIN0060 

MAIN0070 

MAINOi 10 
MAIN0120 
MAIN0130 

SUM00145 

SUM00150 


ORIGINAL PAGE IS 
OF POOR QUALITY 


tn 

<r> 

i 


V SC AL ( 1 0 ) =1 . 0E>6 
VSCAL ( 1 1 ) =1 • OE-2 
VSCAL(12)=l.0E«2 
VSCAL(13)=1.0E-2 
VSCALC!4)=1.0E-2 
VSCALC 15)sl.0E+0 
VSCALC16)=1 .OE-l 
VSCAL(17)=1 .OE-3 
VSCAL(18)=1 .OEO 
VSCALC19)=1 .OE-4 
VSCAL(20)=1.0E-5 
VSCAL(21)=l.0E-5 
VSCALC22J=1.0E-2 
READ C 5, XI N) 

WRITE ( 6 ,XIN) 

DO 111 1*1. N 

111 EPS(I)=0.0001 

20 FORMAT C8F10.2) 

WRITE (6,8016) EPSf 1) 

8016 F0RMAT(F12.8 //) 

XNEI=XN*EI 
PI=3, 141592654 
XM1-4 • *FC*DC 
XM2=4 . *RO*FC 

XM3-1 , / (2 . *PI ) 

XM4=P0/EI 
XM5=SQRT Cl./FW/PI) 

XM6*E0+XNEI 

XM7-P0/EQ 

XM8s(E0-»-XNEI)/(EI*E0) _ 

XM9=EI*E0/(E0+XNEl)/FR/2. 

XM10=FR*((EQ4VD)/XN4El42.*VST)/6. 

XMll=TSFtTSR 

XM12=TSF-TSR 

XM13=TN0+TFD+3.*TRE 

XM14=TND-TFD-3.*TRE 

XM15=E0»PI/CE0+XNEI) 

XM16=EI/(E0+XNEI)/XN 
XM17=. 1 76*SQRT CFR) 

XM18sl.4l./PE2 

XM19sFR/PE2 

XM20sC2.*PO*XMB/PI*SIN(XM15)*FR)**2 
XM21=(C1/P1/XM8)*(C0S(XM15)-SIN(XM15)/XM15))»*2 
XM22= 1.4FR*FR/2000.**2 
Xm23=(S*FR ) **2 

XM24=S/CSQRT(1 .4FR*FR/2000,**2)4EO/PI**2*SlN(PI*(EO-En/EI)) 

XM25sFR»FR*XM24 

XM26=8.*PI»434FR**3/PE2 ^ 

XM27=SQRT (1 .4(FR/2000.)**2)/S 
RCKCKsRCK*CK 

XM28=4.*P0**2/PI**2*(SIN(XM15))**2*XM8**2 
XF29s4.*XM9**2/PI**2*tC0S(XM15)-SIN(XMl5)/XM15)**2 
XM30=4.*PI**2*FR**2 
: THIS CHECKS FOR SCALING 

XI =X(1) 


SUM00185 

MAIN0160 

SUM00315 


■2*isdbt&3s>i •* 




ORIGINAL PAGE 13 
OF POOR QUALITY 


X2 = 

= X(2) 

X3 : 

=X(3) 

X4 =X(4) 

X5 =X(5) 

X6 : 

*X(6) 

X7 =X(7) 

X8 s 

=X ( 8 ) 

X9 *X(9) 

X10 

= X(10 

Xll 

=X(U 

XI 2 

= X ( 1 2 

X 1 3 

=X(13 

XI 4 

—X (14 

XI 5 

=X(15 

X16 

= X( 16 

XI 7 

= X(17 

XI 8 

=X ( 1 3 

XI 9 

sX ( 1 9 

X20 

s X (20 

X21 

= X ( 2 1 

X22 

=X(22 


cn 

i 


1000 Y1=DI4(X1*X14X11+X4*X4*X12+X17*X17*X22) 

Y2=XM1*(X3*X3*X24X2*XH-X6*X6*X5*X5*X4+X19*X19*X18*X18*X17> 

Y3=DK3*X9+DK4*X10+DK54X21 

Y4=PQ*(1./X8-1. )/KH+PO/KS/X8 

FsYl+ Y2+Y3+Y4 

PIF=(XM4/X8)4*2*(X13+X14) „ „ 

PQ= ( XM4/X8 ) *(VST4 .1*VB£)+XM10*(XM8*PO*XM11/X84XW9*XM12/X20) 
PD=XM7*VD/X8+ (XM6*FR/l2./XN)4 (PC*XM8*XM 1 3/X8 ♦XF9*XM1 4/X20 ) 
POF=Ea/XM6*XM7*42*RCKCK/X2l+CXM16*RCKCK/X21+Xl65»(PO*PO»XM8**2/X8» 
l*2+XM9**2/3./X20**2)*XM7**2*(XN*EI/XM6-2./X8)*RCKCK/X2l4l./XM8/X18 
24»2*XM17*X22 

C(n=PO*(l./X8-l.7-PIF-PO-PO-PQF 
C(2)=X13*X3*X3-X«2*Xl»X2*X2 
C(3)=X14*X6*X6-X 12*X5*X54X4 

C(4)=%9*X9+X15*X15*X9**3/X7-PEl**2*(Xie*Xi0-KX15*X15»X9/X7)4 
l(X9-XI0*XM18)**2) 

C(5)=X1*X1*X2*X2«X7*XM4/(X8*BS1) 
C(6)=X4*X4*X5*X5-X7*XM4/(X8*BS2*PE2) 


7 

8 

12 

9 


13 


C(7)sXM5*X3*X2-X114XM3+.5*Xl 
C(8)=XM5*X6*X5-X12*XM34,5*X4 


C(9)=X17*Xt7*Xl8*X18»(X20/BSP)*(XM8*PO/X84XM9/X20) 
C(10)=XM5*X19*X19-X224XK-3+.5*Xl7 


11 


138 8 


CC11) = YR-(PO*Xi , '8/XN/X8+XM9/XN/X2Q)*RCKCK/X21/EO-PO/2./X.M6/FP/X21 

1/EO 

C(l2)=X16*Xt9*X19/2.-XM2*X18*X18*X17 „ „ „ 

C(13)=XM26»X7*»2*X10/X15-XM304X7*X10-XM27*(XP28/X8**2*XM29/X20**2) 

1 ** 0. 5 

C(14)=.97-X8 
C(15)=RT-X13-X14 
C(16)=X10-l.E-6 
C(17)=X9-i,E-6 
WR1TE(6,1383)F 
FOR MAT (FI 3, 6) 

WRITE (6,10000) (C(I) .1=1,17) 






ORIGINAL PAGE IS 
OF POOR QUALITY 


10000 


101 


102 


9025 

9026 

9027 

9028 

9001 

9002 

9003 


FORHAIC4X.5CE14.7 ,5X)) 

DO 101 I=1,N 
- x(i)=x(n/vsc*DCii 
CONTINUE 

CALL E ALAGA(N,M,K,X.EPS,AKHIN,DFN,MAXFN.IPR1.1PP2,IW,M0DE) 

DO 102 I «i,N 
x(i)=xcn*vscALcn 

WRITEC6 # XIII) 

XL2=X(7)/PE2 

XI = X(l) 

X2 =X(2 ) 

X3 = X(3) 

X4 =X ( 4 ) 

X5 =X(5) 

X6 =X (fa ) 

X7 =X(7 ) 

X 8 =X ( 8 ) 

X9 =X(9) 

X10 sX CIO) 

XII =X(11) 

XI 2 =X( 1 2 ) 

XI 3 =XC13) 

XI 4 =X(14) 

XI 5 -X (15) 

XI 6 =X(16) 

X17 *X (17) 

XI 8 =X(18) 

XI 9 =XC19) 

X20 =XC20) 

X21 =X(2l) 

X22 =X ( 22 ) 

TX1=X(1 )*X(1) 

TX2=X(2)*XC2) 

TX3=X(3)*X(3) 

TX4=X(4)*X(4) 

TX5=X(5)*X(5) 

TX6=X(6)*X(6) 

TX7=X(17)4X(17) 

TX8sXCt8)*X(18) 

TX9=X (19)*X(19)/2 

WRITEC6,9025)TX1,TX2,TX3»TX4 # _ f ri c c, 

0A1=' ,G15.5 , ' Nl=»G15.5» AC 1= ' » G15 . 5 , A2*',G15.5) 


FORMAT ( 

WRITE(6 
FORMAT ( 

WRITE (6 
FORMAT C 
WRITE ( 6 
FORMAT ( 

WRITE (6 

FORMAT ( ... . . 

WRITE(6,9002)X(21)»X(22) 

FORMAT C *0C5= .G15.5* ' ZP=* ,G15.5) 
WRITE (6 ,9003)FR»X(8) 

FORMAT ( '0FR = » G 15 . 5 , EFF=*,G15.5) 


L1=*,G15.5, # L2=',G15.5) 


G15 .5 , * Z2= * * G15 . 5 ) 


9026) TX5 » TX6 ,X(7 ) # XL 2 
0N2 = * , G1 5 . 5 » AC2=',G15.5. U4 - 

90.27 )X( 9) *X(10)»XJ11)#X(12) 

0C3- ' » G1 5 . 5 , C4« ,G1 5.5» Zl = '» 

w.gh.sj 

lltt'lEillWlUVin.s.- ACP= ' *G!5.5 . * IP-.GIS.S) 


SUM00805 

MAIN0170 


SUM00925 

SUM0C530 

SUM00940 

SUM00945 

SUM00950 

SUM00955 

SUM00960 

SUM00965 

SUM00970 

SUM00975 

SUM00980 


/,('0V10X,6E18.10>) 


PIF=CXM4/X8)**2*(X13+X14) 

PO=(XH4/X8)*(VST+.1»VBE)+XM1C*(XH8*PO*XMU/X84XM9»XM12/X20) 

PD=XM7 ♦VD/X8 + (XMfc*FR/l 2 . /XN ) * (P0*XM8 *XM 1 3 /X8+XM9*XM 1 4/X20 ) 
PCAP=(E0/XM6)*XM7»*2*RCKCK/X21-KXM1 6*RCKCK/X21 )*(PO*PO*XM8*XM8 
l/X8**2*XM9**2/3./X20**2)+XM7*?/*(XN*EI/XM6-2./X8)*RCKCK/X2l 
POF=Al6*(PO**2*X f -58**2/X8**2«-XM9**2 /3 . /X20**2)+l. /XM8/X18**2*XM17*X 
122 

PMAG=PIF+POF 
PT=PIF+P0+PD4PQF ♦PCAP 
SIGMAP=P0/X8-P0 
RATIO=XL2/X(7) 

WS=P0/X(8)/KS 
WH~PO* C 1 /X(8 ) •! )/KH 

WI=DI*(X(1 )»X(1)*X(11)+X(4)*X(4)*X(12)+XU7)*X(17)*X(22) ) 
WW=XMmx(3)*X(3)*X(2)*X(2)*X(l)+X(6)*X(6)*X(5)*X(5)*X(4)fX(19)* 

IX ( 1 9 ) *X ( 18 ) *X ( 1 8 ) *X ( 17 ) ) 
a<C=DK3*X(9)+DK4*X( 1 0 ) *DK5*X ( 2 1 ) 

WMAG-WI+WW 
WsWI+WW-fW'C + WS+WH 
WRITE (6 , XIN ) 

WRITE (6 , PARMET ) 

W RITE (6.30) (X(I) . 1=1 ,N) 

30 FORMAT ( * 1 * » 10X # ‘SOLUTION VECTOR' 

STOP 
END 

BLOCK DATA 
C0MMON/ALAGD/GC50) 

COMMON /ALAGF /GCC25.50) 

COMMON /ALAGI/G2PC 325) 

DATA G2P/325*0.0E0/ 

DATA GC/1 250*0, OEO/ 

DATA G/50 ♦O . OEO/ 

END 

SUBROUTINE ALAGA ( N , M . K, X , EPS , AKM1N , DFN , MAXFN , IPP1 , IPR2 . IW , MODE) 
REAL XCD.EPSCn 
COMMON/ ALAGC/F, MM, KL. IS ,MK,NU 
C0MMON/ALAGD/G(50) 

COMMON/ALAGE/C(150) 

COMMON /ALAGF /GC (1250) 

COMMON/ AL AGG/T (150) 

COMMON/ ALAGH/GP (50) 

COMMON/ ALAGI/G2P (325) 

CONMON/ALAGJ/V(50) 

COMMON/ALAGK./WW (150) 

COMMON /ALAGL/W( 2500) 

COMMON/ALAGM/ZZ( 100) 

COMMON /ALAGN/LT(1 GO) 

EXTERNAL ALAGZ 

1000 FORMAT ( 3014 ) 

1001 FORMAT ( 8E15.7) 

NU=MAX0 (25 . N ) 

IF(M.GT.50)NU=N 
IX=N 
ICS=M 
ICBsM+M 


SUM01020 


SUMO 1085 
SUMO 1090 


SUM01115 


MAIN0180 

MAIN0190 

MAIN0210 

MAIN0220 


ALMAIN 


ALGA0010 
ALGA0020 
ALGA0030 
ALGA0040 
ALGAOOSO 
ALGA0060 
ALGA0070 
ALGAOOSO 
ALGA0090 
ALGA9100 
ALGA0110 
ALGA01 20 
ALCA0130 
ALGA0140 
ALGA0150 
ALGA0160 
ALGA0170 
ALGA0180 
ALGA0190 
ALGA0200 
ALGA0210 
ALGA 0220 


CT> 

0 

1 


IS=M 

IL = 1S+M 

IP=M 

ILT=M 

NN=N*(N+i )/2 

MM=fc 

KL = K 

MI.NS=0 

AK=1E60 

R = i. 

MK=Q 

DO 1 I = 1 , M 

1 C(ICS+I)=1. 

CALL ALAG0(N-M f X) 

WPITEC6,10000)(C(T) .1=1,17) 

10000 F0RMAT(4X,5(E14.7 ,aX) ) 

DF=DFN 

IF ( DFM . LT . 0 E0)DF= A BS ( DFN*F ) 

IF(ABSCDFN) . LT .1.0 £*30) DF=F 
IF(DF.LE.0.)DF=1. 

DO 2 1=1. M 

cc=c C I ) 

IF(l.GT.K)CC=AMlni(CC,OEO) 

IF (ASS (CC) .GT.C(ICS*I))C(ICS-H)=ABS(CC) 

2 CONTINUE 

IFC1PR1 , EQ. 0 ) GOTO 4 
IF (MOD (M I NS , IPR1 ) • NE.0) G0T04 
PRINT 1002 

FORMAT ( '1ENTRY TO ALAGA * // / * OCONSTRAINT SCALE PARAMETERS ARE*) 
PRINT 1001, (CCICS+I). 1=1, M) 

CONTINUE 

IF(MODE.LT»0) GOTO 5 
DO 3 1=1. M 

T(IS+I)=2E0*DF/C(ICS+I)**2 

3 T ( I ) =0 . 

5 CONTINUE 

KD=IABS ( MODE) 

8 CONTINUE 
MINS-MINS+I 
DO 9 I = 1 , ft N 

9 d (I ) =G2P (I ) 

IF(IPR1.EO.O)GOTJ7 

IF(M0D(MINS,IPR1) .NE.0)GOTO7 

PRINT 1003, MINS . , 

1003 FORMAT (////* 00 UTE8 ITERATION NUMBER IS*, 13) 

PRINT 1004 

1004 FORMAT ( * OX ( I ) * ) 

. PRINT 1001 , CX(I) ,1=1. N) 

PRINT 1005 

1005 FORMAT ( *0THETA(I)*) 

PRINT 1001 , (T(I) ,1=1 ,M) 

PRINT 1006 

1006 FORMAT ( *0SIGMA( I) * ) 

PRINT 1001, (T(IS+I), 1=1, M) 

7 CONTINUE 


1002 

4 


ALGA0230 
ALGA0240 
ALGA0250 
ALGA0260 
ALGA0270 
ALGA0280 
ALGA0290 
ALGA0300 
ALGA031 0 
ALGA032Q 
ALGA0330 
ALGA0340 
ALGA0350 
ALGA0360 


ALGA0370 
ALGA0380 
ALGA0390 
ALGA0400 
ALGA041 0 
ALGA 0420 
ALGA0 43^ 
ALGA0440 
ALGA0450 
ALGA0460 
ALGA0470 
ALGA0480 
ALGA0490 
ALGA0500 
ALGA05I0 
ALGA052C 
ALGA0530 
ALGA0540 
ALGA 0550 
ALGA0560 
ALGA0570 
ALGA0580 
ALGA0590 
ALGA0600 
ALGA0610 
ALGA0620 
ALGA0630 
AT G A 06 40 

AbG« 06c*' 
ALGA0670 
ALGA0680 
ALGA0690 
ALGA0700 
ALGA0710 
ALGAC720 
ALGA0730 
ALGA0740 
ALGA0750 


CALL QNNTA!ALAGZ.N.X,PHI,GP,w,WN,DF,£PS,MD.MAXFN,IPP2.1EXlT) 
CALL ALAGB(N.M.X) 

WD=3 

AKK=0. 

DO 10 1=1. M 
CC=C ( I ) 

IF!I.GT.K.AND.C!I) ,GE.T(I))CC=AMIN1!CC.0E0) 

T!I)=T(I)*T(IS+I) 

WN!I)=ABS!CC}/C!ICS+t) 

IF(WW(I) .GI.AKK) AKKsWKCI) 

10 CONTINUE 

IF ( IPR1 .EO . 01GOT016 

IF (MOD (HINS, IPB11 ,NE.0)GOTO16 

PRINT 1007 

1007 FORMAT ( 'OEXIT FROM ONWTA ' / ' OLAGRANGE MULTIPLIER ESTIMATES') 
PRINT 1001. (T(l) .1=1. M) 

PRINT 1008 

1008 FORMAT! 'OLARGEST SCALED CONSTRAINT VIOLATION'/ 
l' THIS ITERATION. BEST ITERATION') 

PRINT 1001 » AKK.AK 
PRINT 1009 

1009 FORMAT ( 'OCONSTRAINT RESIDUALS') 

PRINT 1001, (CCD. 1 = 1. M) 

PRINT 1010 

1010 FORMAT! 'OSCALED CONSTRAINT VIOLATIONS') 

PRINT 1001 , (WWCI). 1=1. M) 

16 CONTINUE 

IFIIEXIT.EQ. 0 ,np. lEXIT.F.y.3) GO TO 20 
IF! AKK .LE . AKMIN ) GOTO 20 
IF! AKK.GE. AK)GOTOt 1 
DO 15 1=1, HN 
15 G2P ! I ) =w ! I ) 

IF!i3gtTkIaND. ABSITC1) ) .LT . 1 . 0E-30 . AND .C !I) .GE.OEO) GO TO 

ZZ!IP*I)=-T!IS+D*CCI) 

IF!I.GT.K.AND.<: ',!IP*I) . LT . -T ! I ) ) ZZ ! IP4l)=-T ! I ) 

17 CONTINUE 

IF ! MINS .EO. 1 ) GOTO 40 
G0T018 

11 CONTINUE 

IF! ABS(AKK-AK) .LT.l.OE-iO) GO TO 101 
GO TO 105 

101 OG 102 I = l.M 

IFCCCICB+I) ,GEe4.0*WW(I) ) GO TO 102 
0S=9EG*T!IS+I) 

T(IS+I)=1E1*T!IS>I) 4 , 

IF CIPRl.NE.O) PRINT 1 01 l , I , T (IS+I) 

DO 1 0 3 J = 1 , N 

103 ‘ V!J)=GC! 1I-D + NU+J) „ 

CALL MULDACG2P.N. V.DS.V.N.N ,DS) 

102 CONTINUE 
GO TO 18 

105 CONTINUE 

DO 14 1=1, M 

IF ! W« ! I ) . LE . AK . OR .C ! ICB+I ) . GE ,4E0*WW !I) ) GOTO J 4 


17 


AIGA0760 
*' i .'A 770 
GA07R r 
A* G A O ? 9 m 
ALSA08 r 0 
ALGA08 1 0 
ALGA0820 
ALGA0830 
ALGA0840 
ALGA0850 
ALGA0860 
ALGA0870 
ALGA0880 
ALGA0890 
ALGA0900 
ALGA091C 
ALGA0920 
ALGA0930 
ALGA0940 
ALGA0950 
ALGA0960 
ALGA0970 
ALGA0980 
ALGA0990 
ALGA1000 
ALGA1010 
ALGA 1 020 

ALGA1040 
ALGA1050 
ALGA 1060 
ALGA1070 
ALGA1080 

! 

ALGA1100 
ALGA1120 
ALGA1130 
ALGA1140 
ALGA1150 
ALGA1 160 


ALGA1170 

ALGA1180 
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) 


CTl 

ro 

i 


DS = 9KL*r(IS + I) 

TC15+i) = lEl»T(IS+n 
IF £IPR1 .WE . 0 ) PRINT 1011,I.TCIS+I) 

1011 FORMAT! *0SIGMA( * .13. ') INCREASED TO '.E15.7) 

DO 12 Jsl.N 

12 v(j)=Gccu-n*wu+j) 

CALL HULOft (G2P , S , V , OS . V , N , N , DS ) 

14 CONTINUE 
18 CONTINUE 
DO 13 1*1, N 

IFCABS!X!I)-GCIX*T) ) . GT . EPS £ I ) ) GOT02 1 

13 CONTINUE 
PRINT 1013 

1013 FORMAT ( ' ©REQUESTED ACCURACY NOT OBTAINED') 

20 CONTINUE 

IFCIEXIT, EQ • 0 ) PRINT 2000 Tir „.‘ 

2000 FORMAT ( '©MATRIX SET IN G2P B'i USER IS NOT POSITIVE DEFINITE ) 

IF< IPR1 .EO. <3 ) RETURN 
PRINT 1012 

1012 FORMAT ( ' OREST SOLUTION OBTAINED ' /' OF ,( G C A ), 1= 1 # N ) ' 

PRINT 1001 ,F, (GCI) ,1*1 ,N) 

RETURN- 

21 CONTINUE 
IFCAKK.LT. AK) GOTO 40 
DO 32 1*1, M 

32 V ! I ) *T ( IL+I ) 

GOTO70 

40 CONTINUE 
MK = 0 
KK = 0 
DO 41 1*1, M 
T(1L+I)=T(I) 

C ( ICBf I ) — w W (I) 

IF (I .GT.K. AND. A=*S CT ! IL + I ) ) .LT . 1 . OE-3 0 . AND .C C I ) . GE . 0E0 ) GO TO 41 

KK=KK+1 

LT(ILT+KiK) = I 

GP(KK)*-1E30 

IF ( I . GT.K ) GP ( KK) *-T £ ILTl ) 

V(KK)=1E30 
ZZCKfO=-C!I) 

41 CONTINUE 
IFCKK.EQ.O) GOTO 20 
DO 42 1=1, N 

42 G ( IX+I ) =.X(I ) 

KKK=:KK*(KK+l)/2 

ii=maxo!kkk*nn,kk*kk) 

IFCII.LE. IW) GOTO 50 

2001 FORMAT! '©INCREASE STORAGE IN COMMON/ALAGL TL ' , 17 , 'ELEMENTS ' ) 

RETURN 

50 CONTINUE 
II*Ih-KKK 
DO 53 1*1, KK 
LI*LT CILT+I ) 

DO 51 J J*1 » N 


ALGA 11 90 
ALGA1200 
ALGA1210 
ALGA 1220 
ALGA1230 
ALGA1240 
ALGA1250 
ALGA1260 
ALGA1270 
ALGA 1280 
ALGA1290 
ALGA 1300 
ALGA 13 10 
ALGA1320 
ALGA 1330 
ALGA1340 
ALGA1 350 
ALGA 1360 
ALGA1370 
ALGA1380 
ALGA1390 
ALGA1400 
ALGA141 0 
ALGA1420 
ALGA1430 
J&5A1440 
ALGAl 450 
ALGA1460 
ALGA1470 
ALGA 1480 
ALGAl 490 
ALGA1500 
ALGA151 0 

ALGAl 5 30 
ALGA1540 
ALGA1550 
ALGA1560 
ALGA1570 
ALGA1580 
ALGA1590 
ALGA1600 
ALGAl 610 
ALGA1620 
ALGA1630 
ALGA1640 
ALGA1650 
ALGAl 660 
ALGA1670 
ALGAl 680 
ALGA1690 
ALGA1700 
ALGA1710 
ALGA1720 
ll.r.ki 730 
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fil 


<n 

OJ 

f 


51 XCJJ)=GCCCLI-1}*MU+JJ} 

CALL MULDEC W »N,X.X.N) 

DO-53 vJ=l,I 
LJ=LT(1LT+J) 

z=o. 

DO 52 JJ=1,N 

52 Z=Z+X(JJ)*GCC(LJ-1)*NU+JJ1 
IT=II+1 

53 *(II}=Z 
JJ=Iw-KKK 
11 = 0 

DO 56 I=i ,KK 
DO 55 J=l,I 
JJ=JJ-?l 

55 W(IH-d}=W(JJ} 

56 I 1=1 I+KK 

CALL BOOM A C KK , W , KK , ZZ . GP , V , T , Z , LT , JJ , W* } 
IFtIPRI .E0.0DG0TO59 
IF (MOD (MINS»IPR1) • NE . 0 ) GGT059 
PRINT 1020. KK 

1020 FORM AT ( 14. * ACTIVE CONSTRAINTS, NUMBERED'} 
PRINT 1000, CLT ( ILT+I ) , 1=1 , KK ) 

PRINT 1021 

1021 FORMAT! 'OLAGRANGE MULTIPLIER CORRECTIONS FOP 
PRINT 1001, (TCI) , L=1 .KK} 

59 CGNTINUE 

DO 60 1 = 1. M 

60 V( I ) =T ( IL+I ) 

DO 62 1=1, KK 
LI=LT CILT>I } 

IFCABlcZZCIP^Llil .LE.l.OE-30) GO TO 62 
Zs4E0*ABSC(T(I)-ZZ(IP+LI})/ZZ(IP+LI}) 
IFCZ.LE.IEO} GOTO 6 2 
DS=CZ~1E0 } *T C IS+LI ) 

T(ISfLI>=Z*T(IS+LI} 

If CIPR1 . NE. 0} PRINT 1011 , LI ,T ( IS-fLI) 

DO 61 J = 1,N- 

61 GPC J)=GC ( (LI*1 } *NU+J) 

CALL MULDACG2P , N , GP , DS , GP , M , N, DS} 

62 CONTINUE 
AK=AKK 

70 CONTINUE 

DO 71 1=1 , M 

71 T(I}=VCI}/T(ISTI1 
DO 72 1=1, N 

72 X( I}=GCIX+I) 

DF=1 E50 
GQT08 

END 

SUBROUTINE ALAGZCN.X.PHI.GPHI) 

REAL X C 1 } ,GPHI(1} 

COMMON/ ALAGC/F ,M,K,IS,MK,NU 
COMMON/ ALAGD/GC50) 

COMMON'/ ALAGE/C C 1 50 } 


ACTIVE CONSTRAINTS') 


ALGA 1740 
ALGA1750 
ALGA1760 
ALGA1770 
ALGA1780 
ALGA1790 
ALGA1800 
ALGA 18 10 
ALGA1820 
ALGA1830 
ALGA1840 
ALGA1850 
ALGA 1860 
ALGA1870 
ALGA1880 
ALGA1890 
ALGA1900 
ALGA1910 
ALGA1920 
ALGA1930 
ALGA 1940 
ALGA1950 
ALGA 1960 
ALGA1970 
ALGA1980 
ALGA1990 
ALGA2000 
ALGA2010 
ALGA2020 
ALGA2030 
ALGA2040 

ALGA205 0 
ALGA2060 
ALGA2070 
ALGA2080 
ALGA2090 
ALGA2100 
ALGA2110 
ALGA2120 
ALGA2130 
ALGA2140 
ALGA2150 
ALGA2160 
ALGA2 1 70 
ALGA2180 
ALGA2190 
ALGA2200 
ALGA2210 
ALGA2220 
ALGZ0010 
ALGZ0020 
ALGZ0030 
ALGZ0040 
ALGZ0050 




10 


11 

12 


1000 


$ 

5 

10 

15 


20 


COMMON/AL AGF /GC ( 1 250 ) 

COMMON /ALAGG/T( 150) 
IFCMK.EQ.IDCALL ALAGB (N,M,XD 
MK = 1 
PHI=0. 

DO 10 1=1. N 
GPHI ( I D =G ( I ) 

DO 12 1=1. M 
CC=CCI)-TCI) 

IF C 1 . GT . K 1 CC =AM1 N l (CC , 0E0 ) 
Y=T(1S+I)*CC 

IF ( ABSCYD .LT.l .0E-30) GO TO 12 

PH1=PHI+Y*CC 

DO 11 J= l , N 

GPHI(J)=GPHICJD+Y*GC( CI-1D*NU+J). 

CONTINUE 

PHI=.5E0*PHI+F 

RETURN 

END 

SUBROUTINE QNWTA ( FUNCT , N , X , F , G . H , 
1IEXIT) 

REAL XCl) ,G(1D ,H(1 ) ,W(1) ,EPSCU 

CALL FUNCT(N.X.F.G) 

IFCIPRINT.NE.ODPRTNT 1000 

FORMAT ( '1ENTRY TO ON WTA * / D 

NN=N*(N+l)/2 

IG=N 

IGG=N+N 

IS=IGG 

IEXIT=0 

IR=N 

IF(M0DE.E0.3) GOTO 15 

IFCMOUE.EQ.2DGOTO10 

1J=NN+1 

DO 5 1=1, N 

DO 6 J=1,I 

IJ = IJ-1 

H ( I J ) =0 . 

H ( I J ) =1 . 

G0T015 

CONTINUE 

CALL MULD8 (H , N , IR ) 

IFCIR.LT.ND RETURN 

CONTINUE 

Z=F 

ITN=0 

CALL FUNCTCN ,X,F.GD 
IFN = 1 
DF = DFN 

IFCABSCQFND .LT.1.0E-30D DF=F-Z 

IF(DFN.LT.O.)DF=ABS(DF*F) 

IF(DF.LE.0,)DF=1. 

CONTINUE 

IFCIPPINT.EQ.OD GOTO 21 

IF (MOD C ITN , I PRINT} . NE. 0 ) GOTO 2 1 


W, DFN, EPS, MODE f MAXFN , IPRINT , 


ALGZ0060 

ALGZ0070 

ALGZ0080 

ALGZ0090 

ALGZ0100 

ALGZOUO 

ALGZ0120 

ALGZ0130 

ALGZOUO 

ALGZ0150 

ALGZ0160 

ALGZ0180 
ALGZ0190 
ALGZ0200 
ALGZ0210 
ALGZ0220 
ALGA02 30 
ALGZ0240 
QNTA0010 
ONTAO02O 
QNTA0030 

QNTA0040 
QNTA0050 
QNTA0060 
QNTA0070 
QNTAOO80 
ONTA0093 
QNTA0100 
QNTAO r ' rf 
QNTAG.20 
QNTA013Q 
QNTA0140 
6 NTAQ150 
QNTA0160 
QNTA0170 
QNTA0180 
QNTA0190 
QNTA0200 
0NTA0210 
QNTA0220 
ONTA0230 
QNTA0240 
QNTA0250 
QNTA0260 
QNTA0270 
QNTA0280 
QNTA0290 
QNTA0300 
QNTA0310 
QNTA0320 
QNTA0330 
QNTA0340 
QNTA0350 
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PRINT 1001.ITN.IF* 

FORMAT (24153 
PRINT 1002, F 
FORMAT C (8E15.7)) 
IF(1PRINT.LT.O)GOT021 
PRINT 1002, (X (I) , 1=1 ,N) 

PRINT 1002, (GC1) ,1=1. N) 

CONTINUE 

ITN=ITN-M 

DO 22 1=1, N 

W ( IG+I )=G ( I ) 

CALL MULDECH.N.G.W, IR) 

GS=0 . 

DO 29 1=1, N 

*CIS+I)=-G(I) 

GS=GS-G(I)*#HIG*t) 

IEXIT=2 

IF (GS. GE. 0 . ) G0T092 
GSO=GS 

ALFHA=-2.*DF/GS 

IF C ALPHA. GT.l.)ALPHA=l. 

DF=F 

TDT=0. 

CONTINUE 

IEXIT=3 

IF ( IFN . EO . MAXFN ) GOT092 
1£XIT=4 

IFdFM.GT. MAXFN) GO TO 92 

ICON=0 

IEXIT=1 

DO 31 1=1, N 

Z=ALPHA*W(IS+I) 

IF(ABSCZ), GE »EPS (I))IC0N = 1 

X(I)=XCI)+Z 

CALL FUNCTCN.X.FY.G) 

IFN=IFN+1 

GYS=0 . 

DO 32 I = 1 ,-N 

GYS=GYS+G(I)*W(IS+I) 

IF(FY,GE.F)G0T040 

IF( ABS t GYS/GSG) . Li. • 9 ) GCI050 

IF(GYS,GT.O, ) GOTO 40 

TQT=TOT+ ALPHA 

Z=10. 

IF(GS.LT.GYS)Z=GYS/CGS-GYS) 

IF(Z.GT.10.)Z=10. 

ALPHA=ALPHA*Z 

F=FY 

GS=GYS 

GOT030 

CONTINUE 

DO 41 1=1, N 

X(I)=X(I)-ALPHA*W(IS+I) 

IF (ICON. EO • 0 ) G0TO92 
Z=3 . *(F-FY) /ALPHA f GYS+GS 



- 166 - 


IFCABS(Z).GT.1.0E35’) GO TO 36 
GO TO 37 

36 Z=1 .0 

GO TO 39 

37 CONTINUE 
ZZ=SQRT£Z**2-GS*GYS) 
Z=1.-(GYS+ZZ-Z)/(2.*ZZ+GYS-GS) 

39 CONTINUE 

ALPHA=ALPHA*Z 

G0TO30 

50 CONTINUE 
ALPHA=TQT+ALPHA 
F=FY 

IF (ICON » EO • 0 )GOT090 
DF=DF-F 
DGS=GYS-GS0 
DO 51 1 = 1, N 
to(IGG>l)=G( I) 

51 G(I)=-W(IG+I) 
IF(DGS+ALPHA*GS0.GT.0.)G0TO60 

C COMPLEMENTARY DFP FORMULA 
SIG=1 ,/GSO 
IP=-IR 

CALL MULDMH , N , G. SIG »« , IR , 1 , 0 . ) 

DO 52 1 = 1, N 

52 G(I)=W (IGG+I )"W(IG+I> 
SIG=1./(ALPHA*DGS) 

IR=-IR 

CALL MULDA(H,N,G,SIG,W,IR,0,0. ) 
G0T070 

60 CONTINUE 
C DFP FORMULA 

ZZ=ALPH A/ (DGS-ALPHA*GSO ) 

SIG=-ZZ 

CALL MULDA (H , N , G . SIG , W , IR , 1 , IE-7) 
Z=DGS*ZZ-1 . 

DO 61 1=1, N 

61 G ( I ) = w ( IGG+I )+Z*^( IG+I ) 
SIG=i./(ZZ*DGS**2) 

CALL MULDA (H , N , G , SIG . W , IR , 0 , Q • 3 

70 CONTINUE 

00 71 1 = 1 ,N 

71 G( I )=W ( IGG+I ) 

GOT020 

92 CONTINUE 
DO 91 1 = 1, N 
91 G ( 1 ) =W ( IG+I ) 

90 CONTINUE 

IF (IPRINT.EO.O) RETURN 
PRINT 1001 ,ITN,IFN,I£XIT 
PRINT 1002, F 
PRINT 1002, (X(I) ,1=1, N) 

PRINT 1002, (GCI) .1=1 ,N) 

RETURN 

END 


QNTA0890 

0NTA0900 



SUBROUTINE MULDA ( A ,N . Z , SIG , H , IR . MK , EPS) 

01 MENSION A(l),Z(l).Wtn 

UPDATE FACTORS GIVEN IN A BY SIG*Z*ZTRANSPOSE 
IF(N.GT.l) GOTO 1 
A(n = ACl)+SIG *ZC1)**2 
IP=1 

IF(A(1).GT.0.)RETURN 

A(l)=0. 

IR = 0 
RETURN 
1 CONTINUE 
NP=N+ 1 

IFISIG.GT.O. ) GOTO 40 

IF C ABS(SIG) .LT. i .0E-30 .OR.IR.EQ.O) RETURN 

TI-l./SIG 

IJ=1 

IFCMK.EQ.O) G0T01 0 
DO 7 1=1. N 

IF ( ABSCA(IJ) ) .GT. 1 .0E-30) TI=TI+W( I ) **2/A ( I J) 
7 IJ=IJ*NP-I 
G0TO20 

10 CONTINUE 

DO 11 1=1. N 

11 W(I>=Z(I) 

DO 15 1=1, N 

IP=I+1 

V=W(I) 

IF(A(IJ).GT.O. ) GOTO 12 
W(I)=0. 

IJ=IJ+NP-I 
G0T015 
CONTINUE 
TI=TI+V»*2/A(IJ) 

IF(I.EQ.N)G0T014 
DO 13 J=IP,N 
IJ=IJ+1 

W(J)=W(J)-V*ACIJ) 

IJ=IJ+1 
CONTINUE 
CONTINUE 

IFCIR.LE.O ) G0T021 
IFCT1.GT.0. )G0T022 
IF(MK-1)40,40,23 
TI=0. 

IRs-IR-1 
GOT023 
TI=EPS/SIG 

IF ( ABS(EPS) .LT.1.0E-30) IR=IR-1 
CONTINUE 
MM = 1 
TIM=TI 
DO 30 1=1, N 
J=NP-I 

IF( 1 ABS(ACIJ) ) .GT. 1 .0E-30)TIM=TI-K(vI)»42/A(IJ) 


12 


13 

14 

15 
20 


21 


22 

2 3 


MUDA0010 
MUDE0020 
MUDA0030 
MUDA0040 
MUDA0050 
MUDA0060 
MUDA0070 
MUDA0080 
MUDA0090 
MUDA0100 
MUDA01 10 
MUDA0120 
MUDA0130 

MUDA0150 

MUDA0160 

MUDA0170 

MUDA0180 

MUDA0200 
MUDA0210 
MUDA0220 
MUDA0230 
MUDA0240 
MUDA0250 
MUDA0260 
MUDA0270 
MUDA0280 
MUDA0290 
MUDA0300 
NUDA0310 
MUDA0320 
MUDA0330 
MUDA0340 
MUDA0350 
MUDA0360 
MUDA0370 
MUDA0380 
HUDA0390 
MUDA0400 
MUDA041 0 
WUDA0420 
MUDA0430 
MUDA0440 
MUDA0450 
MUDA0460 
MUDA0470 

MUDA0490 

MUDA0500 

MUDA0510 

MUDA0520 


MUDA0540 


30 


40 


41 


51 


52 


53 


O'! 

00 

I 


54 


55 

56 


61 


62 


63 

64 


66 

70 


WCJ)=TI 

T1*T1M 

G0T041 

CONTINUE 

MM=0 

T1M=1 . /SIG 
CONTINUE 
IJ = 1 

DO 66 1=1, N 

IP=I+1 

V=Z(I) 

IFCACIJ) .GT.0.3G0T053 % 

IF(IR.GT.O .OR.SIG.LT.O, .OR, ABS (V) .LT . 1 . 0E-30 ) GO TO 52 
IR=1-IR 

A(IJ)=V**2/TIM 

IF(I.EO.N) RETURN 

DO 51 J = I P » N 

IJ=IJ+1 

A(IJ3=Z(J)/V 

RETURN 

CONTINUE 

TI=TXM 

I J=I J+NP-I 

G0T066 

CONTINUE 

AL=V/A(IJ) 

IF (MM354 ,54,55 
TI=TIM+V*AL 
G0T056 
TI=W (I ) 

CONTINUE 
R=TI/TIM 
A ( I J ) =A ( I J ) *R 

IF ( ABSCR) .LT.1.0E-30) GO TO 70 

IFCI.EQ.N3GOTO70 

B=AL/T I 

IFCR.GT.4. )G0T062 
DO 61 J=IP , N 
IJ=IJ+1 

Z(J)=ZCJ)-V*A(IJ) 

A(IJ)=A(IJ)+B*Z(J) 

G0T064 
GM=TIM/TI 
DO 63 J = I P , N 
IJ=IJ+1 
Y=A ( I J ) 

A(IJ)=B*Z(J)+Y*GN- 

Z.CJ)=Z(J)-V*Y 

CONTINUE 

TIM=TI 

IJ=1J+1 

CONTINUE 

CONTINUE 

IF(IR.LT.O) IR=-IR 
RETURN 


MUDA0560 

MUDA0570 

MUDA0580 
MUDA0590 
MUDA0600 
MUDA061 0 
MUDA0620 
MUDA0630 
MUDA0640 
MUDA0650 
MUDA0660 
MUDA0670 


MUDA0690 
MUDA0700 
MUDA0710 
MUDA0720 
MUDA0730 
MUDA0740 
MUDA0750 
MUDA0760 
MUDA0770 
MUDA0780 
MUDA0790 
MUDA0800 
MUDA0810 
MUDA0820 
MUDA0830 
MUDA0840 
MUD A. 08 50 
MUDA086C 
MUD AO 870 
MUDA0880 


MUDA0900 
MUDA091 0 
MUDA0920 
MUDA0930 
MUDA0940 
MUDA0950 
MUDA0960 
MUDA0970 
MUDA0980 
MUDA0990 
MUDA1000 
MUDA1010 
MUDA1020 
MUDA1030 
MUDA1040 
MUDA1050 
MUDA1060 
MUDA1070 
MUDA1080 
MUDA1090 
MUDA1100 




? 
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MULD8 (A 
A ( 1 ) 


,N.IR) 


o\ 

VO 

i 


END 

SUBROUTINE 
DI MENS ION 
IR = N 

I F ( N . GT . t ) GOTO 1 0 0 
IF ( A ( 1 ) .GT . O'. ) RETURN 
A ( 1 ) = 0 . 

I R = 0 
RETURN 

100 CONTINUE 
N P = N ♦ 1 

II = 1 

DO 104 1=2, N 
AA=A (1 I ) 

NI=II+NP-I 
IF( AA.GT.O. JGOTOI 01 
A ( 1 1 ) =0 . 

IR=IR-1 
II=NI+1 
GOT0104 

101 CONTINUE 
IP=II+1 
II=NI+1 
JK=II 

00 103 IJ=IP,NI 
V=ACIJ)/AA 
DO 102 IK=IJ,NI 
A ( JK) =A ( JK) -A ( IK) ♦ V 

102 JK=JK+ 1 

103 A C I J) = V 

104 CONTINUE 
IF ( A ( 1 1 ) . 

A CII ) =0 . 

IR=IP-1 
RETURN 
END 

SUBROUTINE MULDEC A , N . Z , W , IR ) 
DIMENSION A(1),Z(1),W(1) 

MULTIPLY A VECTOR Z BY THE INVERSE 
IF(IR.LT.N) RETURN 
HCl)sZ(l) 

IF(N.GT.l ) GOTO 400 
Z ( 1 ) =Z ( 1 ) /A ( 1 ) 

RETURN 

400 CONTINUE 

DO 402 1=2, N 
IJ=I 
11=1-1 
v=zm 

DO 401 J=1,I1 
V=V-A(IJ)*Z( J) 

I J=I J+N- J 


,GT.O.) return 


OF THE FACTORS GIVEN IN A 


401 

402 


wm=v 

Z(I)=V 
ZCN)=ZCM)/ACIJ) 


MUDA1 110 
MUDB0010 
MUDB0020 
MUDB0030 
MUDB0040 
MUDB0050 
MUDB0060 
MUDB0070 
MUDB0080 
MUDB0090 
MUDB0100 
MUDB0110 
MUDB0120 
MUDB01 30 
MUDB0140 
MUDB0150 
MUDB0160 
MUDB0170 
MUDB0180 
MUDB0190 
MUDB0200 
MUDB021 0 
MUDB0220 
MODB0230 
MUDB0240 
MUDB0250 
MUDB0260 
HUDB0270 
MUDB02B0 
MUDB0390 
MUDB0S00 
MUDB0310 
MUDB0320 
MUDB0330 
MUDB0340 
MUDB035© 
MUDE001 0 
MUDA0020 
MUDE0030 
MUDE0040 
MUDE0050 
MUDE0060 
MUDE0070 
MUDE0080 
MUDE0090 
MUDE0100 
MUDE0110 
MUDE0120 
MUDE0130 
MUDE0140 
MUDE0150 
MUDE0160 
MUDE017C 
MUDE0180 
MUDE0190 


I 

'-J 

o 

t 


NP=i« + 1 

DO 411 f!IP=2 #N 
I=NP -NIP 
II=1J-NIP 
V=ZCI)/ACII) 

IP=I+l 

IJ=II 

DO 410 J — IP , N 
11=11+1 

410 V=V-ACII)*Z(J) 

411 ZCI)=V 

return 

END 

SUBROUTINE BQDMA ( 0 , A . I A , B , BL , BU , X . Q ,LT , K . G) 

DIMENSION ACIA.1) ,B(1) ,BLCl) ,BUC1) ,XC1) .LTCD ,GC1 ) 

IS=N 

IAS=f! 

IV=N 

ICAC=N’+N 
ID=IC AC 
DO 9 1=1, N 
9 GCD--BCI) 

DO 10 1=1, N 
X(I)=0. 

LT ( I ) =1 

G C ICAC+I )=ACI#I) 

IF (0 . . GE.BLCI) . AND.O ..LE.BUCI) } GOTO 10 
IFCO. .LT.BLCD)XCD=BLCI) 

IF CO. .GT.BUCD)XCI) = BUCI) 

DO 12 J=1,I 

12 GCJ)=GCJ)+ACJ,I)*XCD 
IF C I . EQ . N 1 GOTO 1 0 
11=1+1 

DO 11 J=II ,N 
11 GCJ)=GCJ)+ACI, J)*XCD 
10 CONTINUE 
K=0 
K 1 = 1 

20 CONTINUE 
I0UT=0 

DEL=0 . 

DO 21 I=K1,N 
LI=LT Cl) 

IF C ABSCXCLD-BLCD) .LT . 1 . 0E-30 . AND . G CI) . GF. . 0 . EO ) GO TO 21 
IF C ABSCXCLD-BUCD) .LT.l .0E-3O.AND.GCD .LE.O.EO) GO TO 21 
IFCGCD.LT. 0.1GOTO22 
Z=X CLI) -BL CLI ) 

J=1 

G0T023 

22 CONTINUE 

Z=BU CLI) -X CLI ) 

J=0 

23 CONTINUE 

IF CGC ICAC+I) .LE. 0 . ) GQT024 
BETA-ARS CG CD )/Gf ICAC+I) 


MUDE0200 
MUDE021 0 
MUDE0220 
MUDE0230 
MUDE0240 
MUDE0250 
MUDE0260 
MUDE0270 
MUDE0280 
MUDE0290 
MUDE0300 
MUDE031 0 
MUDE0320 
BQMA0010 
MA0020 
MA0030 
MA0040 
MA0050 
MA0060 
MA0070 
MA0080 
MA0090 
MAG100 
MAO 1 1 0 
MA0120 
MAO 1 30 
MA0140 
MAO 150 
MA0160 
MA0170 
MAOl&O 
MA0190 
MA0200 
MA0210 
MA0220 
MA0230 
MA0240 
MA0250 
MA0260 
MA0270 
MA0280 
MA0290 
MA0300 


BQMA0330 

B0MA0340 

B0MA0350 

B0MA0360 

BOMA0370 

BOMA0380 

B0MA0390 

BOMA0400 

B0MA0410 

BOMA0420 


-ui- 




IFCBETA.GE.Z)G0in?4 

7=R£TA 

D=.5*Z*ABS(G(I) 3 

J = -l 

G0T026 

CONTINUE _ 

DsZ*(ABS(G(I))-.5«Z*G(ICAC^I)) 

CONTINUE 

IFCD.LT.DEL) G0TG21 

DEL=D 

ALPHA=Z 

IOUT=I 

IINal 

1F(J.LT. 0 )IIN=0 
LB=J 

CONTINUE 

IF(IOUT.NE.O)GOTr>29 

CONTINUE 

0=0 . 

DO 28 1=1 , N 
LI -LI ( I 1 

QsQ+X (LI ) * ( G ( I ) - 8 ( L I ) 3 
Q= . 5*0 

RETURN 

CONTINUE 

SIG-l 

IFCG(!oUT),GT.0.)SIG*-1. 

LIOUT=L,T(IOUT) 

LIIN=LIOUT 

CONTINUE 

SAS=G( ICAC+IOUT) 

IF (K. EQ . 0 ) G0T03 1 

DO 30 I s 1, R 

G(IS*I)=G(ID+I)*ACIOUT,l) 

CONTINUE 

DO 37 I=K1 # N 

LI=LT (13 

IF(LI-LIOUT)32, 37,33 
Z=A (LI , LIOUT ) 

G0T034 

Z=A (LIOUT , LI) 

CONTINUE 
IFCK.E0.0)GOTO36 
DO 35 J=1,K 
Z=Z-A(I.J)*G(IS-Kn 
G( IS+I )=Z 
CONTINUE 
G ( IS+IOUT) =SAS 
IF ( K. EQ • 0 ) GOTO 42 
G ( IS+K) =-A ( IOUT , K ) 

IF (K. EQ • 1 3G0T042 
I = K 

DO 41 11=2, K 
1 = 1-1 

Z=-A (IOUT , I ) 



11=1+1 

DO 40 J=I 1 , K 

40 Z=Z-G(IS+J)*A(J,I) 

41 G ( IS+I ) =Z 

42 CONTINUE 

IF ( ABSCSIG-1.) .LT.1.0E-30) GO TO 51 
DO 50 1=1, N 

50 G(IS+I)=-G(IS+I) 

51 CONTINUE 
IFCK.EQ.0)GGTO62 
DO 61 1=1, K 

IF ( ABSCGCIS+I) ) .T.T. 1 .0E-30) GO TO 61 
LI=LT ( I ) 

J=1 

Z=8L (LI ) -X(LI) 

IFCGCIS+Il .LT.O. )GOTO60 
J=0 

Z=BU(LI)-XCLI) 

60 CONTINUE 
Z=Z/G(IS+I) 

IF ( Z.GE. ALPHA) G0T061 

ALPHA=Z 

LB=J 

1 1 N' = I 

LI IN=LI 

61 CONTINUE 

62 CONTINUE 

XCLIOUT)=X(LIOUT)+SIG*ALPHA 
1F(K.EQ.O)GOT071 
DO 70 1=1, K 
LI=LT ( I ) 

70 X(LI)=X(LI) -+ALPHA*G (IS'+I ) 

71 CONTINUE 

DO 72 I=K1.N 

72 G(I)=G(I)+ ALPHA*G ( IAS+I ) 

IF ( I IN . EO . 0 ) GOTO 00 

X(LIIM)=BL(LIIN) 

IF(LB.EQ.0)XCLIIN)=BU(LIIN) 

IF ( II N . EO . IOUT) GOTO 20 
K2=K>1 

SG=G( ID+IIN) ' 

Il=IINtl 
DO 80 1=11, N 
80 G(IV+1)=A(I,IIN) 

IF (11N . EG. K) GOTO 8 6 
I2=IIN+2 
S0=1./SG 
DO 85 I=IIN,K2 
V=G ( IY*I 1 ) 

VD=V/G(ID+I1) 

S1=S0+V*VD 
R=S 1 /SO 

G ( 1D+I ) =G( ID+-1 1 ) 

BETA=VD/S1 
IFCR.GT.4.) GOT0841 


BQMA0980 

BQMA0990 

bqmaiooo 

BQMA1010 

BQMA1020 

BQMAI 040 
BQMA1050 
BQHA1060 
B0MA1070 
BOMA1080 

BQMAi 100 
BQMAi 1 1C 
BQMAI 120 
BQMAI 130 
BQMAI 140 
BOMAl 150 
BQMAI 160 
BQMAI 170 
BQMAI 180 
BQMAI 190 
BQMAI 200 
BQMA1210 
BQMAI 220 
BQMA1230 
BQMAI 240 
B0MA1250 
BQMAI 260 
BQMA1270 
BQMAI 280 
BQMAI 290 
BOMA 1300 
BQMA1310 
BQMAI 320 
BQMA1330 
BQMAI 340 
BQMA1350 
BOMAl 360 
BQMAI 370 
BQMAi 380 
BQMAI 390 
3MA1400 
)MA1410 
3MA1420 
_JMA1430 
BQMA1440 
BQMA1450 
3MA1460 
JMA1470 
3MA1480 
3MA1490 
3MA1500 
5MA1510 
;MA1520 


DP 31 J=I2,tf 

G(IV+J)=G(IV+J)-V*ACJ.I1) 

IF (II. GT . K2 ) GOTO 8 3 
DO 82 J=I1,K2 
J1=J+1 

A(J»I)=ACJ1# II ).+ BETA*G Cl V+Jl ) 

CONTINUE 

A(K.I)=BETA 

DO 84 J=K1 ,N 

A ( J , I ) =A ( J , II ) +BETA*G( IV+J) 

G0T0849 

CONTINUE 

IF (II. GT. K2 JG0T084 3 
DO_842 J=Il,K2 

ACJ?I)=BETA*GCIV+.7l > + A(Jl,Il)/P 

CONTINUE 

A(K X I)=BETA 

DO 844 J=K1,N • „ 

A(J £ I)=BETA?GCIV+J)+A(J,11)/R 
DO 845 J=I2,N 
G(IV+J)=GCIV+J)-V*ACJ.I1) 

CONTINUE 

LT(I)=LTCI1) 

S0=S1 
11=12 
12=12+1 
SG«1. /SI- 
LT ( K)=LIIN 
G(ID+K)=SG 
IFdIN.EO.l ) GOTO 8 51 
II=IIN-1 
DO 852 1=1,11 
ZsA(lIN,D 
DO 853 J=IIN,K2 
A {' J , I ) = A ( J + 1 , 1 3 
A(K,I)=Z 
CONTINUE 
CONTINUE 
DO 87 I=K1 ,N - 

G(ICAC+I)=G(ICAC+I)+SG*G(IV+I)**2 

K1=K 

K=K2 

IIN=0 

ALRHA=1E75 • 

SAS=GC ICAC+IOUT) 

IF (SAS.GT. 0 .)ALPHA=ABS(G(IOUT)) /SAS 

IFCGCIQUT) .LT.0.)G0T0898 

J = 1 

Z=X (LIGHT ) “BL (LIOUT) 

G0T0899 

CONTINUE 

J=0 

Z=BU (LIOUT )-XCLI OUT) 

CONTINUE 




-HI- 


IF CZ.GE. ALPHA) G0T025 

ALPHA=Z 

LB=J 

IIN=IOUT 

LIINsLIOUT 

G0T025 

CONTINUE 

K2=K1+1 

IF [ ABS(SIG-l.).r.T.1.0E-3Q) 
DO 901 I=K1 ,N 
G ( I AS+I ) = *G ( I AS+I ) 

CONTINUE 

IF (IOUT.EO «K1 ) G0T097 
LT ( I OUT ) =LT (K1 ) 

LTCK1)=LI0UT 

GCIAS+I0UT)=GCIAS+K1) 

G CIC AC+IOUT) =G C IC AC + K 1 ) 

G ( ICAC+K1 ) =SAS 
G(I0UT)=GCK1) 
IF(K.EO.O)GOT093 
DO 92 1=1, K 
Z=ACK1 ,1) 

ACK1 ,1 )=A(10UT,I) 

A ( I OUT ,1) =Z 
CONTINUE 

IF ( K2 . EQ . IOUT) G0TO95 
I1=I0UT-1 
DO 94 IsK2.Il 
AC IOUT , I )=A ( I , K1 ) 

CONTINUE 

IF (IOUT.EO. N) GOTO 9 7 

I1=I0UT+1 

DO 96 1=11, N 

A(I,I0UT)=A(I,Kn 

CONTINUE 

GCK1)=0, 

K = K 1 

IF(K.EQ.N) GOTO 2 7 
DO 98 I=K2,N 

mu tnv /SAS 


G C ICAC+I )=G (ICAC+I)“Z*G( 1 AS+I) 

K1=K2 

GQT020 

END 

SU BROUTINE SQDMB (N . A . IA , G , K) 

DIMENSION ACIA,l),GCn 
IF CK.EQ.O) RETURN 
ID=N-K) 

GCN+1) =1 • /GCID+1 ) 

IFCK.EQ.l 3 RETURN 
N 1 =K -1 

DO 111 1 = 1 , N 1 
11 = 1+1 




BCMA2080 

B0MA2090 
B0MA2100 
BQMA2110 
B0MA2120 
B0MA213O 
B0MA2140 
BQMA2 ISO 



BQMA2490 
BOMA2500 
BQMA251 0 
BOMA252Q 
BOMBOOl v 
BO»»B0020 
BQMB0030 
BOMB004C 
B0MS0050 
BQMB0060 
B0MB0070 
B0MB0080 
B0MBO090 
BQMB0100 



A(Il,I)=-4(li,I) 

IF C I • EQ . N 1 ) GOTO 1 0 2 
11=1+2 

00 101 J - II , K 

DO 100 L=I1 # J1 

100 Z=Z+A(J,L)*A(L,I) 

101 A ( J, I )=-Z 

102 CONTINUE 
AA=1./G(ID+I1) 

2(N+Il )=AA 

DO 111 J=1,I 
Z=A (11 ,J) *AA 
G(N+J)=GCN+J)+Z*4(I1 . J) 

IFCI.EQ.DGOTOllI 

J1=J+1 

DO 110 L=J1'1 

110 A(L,J)=A(L»J)+A{T1,L)*Z 

111 A C 1 1 »J J -Z 
RETURN 
END 

SUBROUTINE ALAGBOVM.X) 

REAL X C N J „ . 

common/ alagc/f, mm, kl. is# mk,nj 
COMMON /ALAGD/G( SO) 

COMMON/ALAGE/C (150) 

COMMON / ALAGF/GC (25,50) 

COMMON/ALAGG/T(150) 

COMMON/SCALE/VSCALC22) »CSCAL(39) ,F5CAL 

COMMON /CON 5 /XM1 , X M 2 ,XMI , XM4 . XM5 , XM6 , XM7 , JM8 , XM9 -XKlO.XKi 1 . 
1XM12.XM13.XM14,XM15.XM16,XM17,XM18,XM19,XM20,XM2^,XM22.XM53.XM24, 
1 XM25 , XM26 ,XM27 ,XM28 , XM29 ,XM30 , PO , El , EO , FC ,FW , RG , VST , VBE , TSR , TSF , 
t VD,TND,TFD,TRE.PE1 ,PE2,8S1 , BS2 , BSP . VR, RCKCK , DI , 

2 DC , DK3 , DK4 , DK5 , K.S , KH , S , FR , RT , XN 


1) 

2 ) 

3) 

4) 

5) 

6) 
7 > 
8) 
9) 


r* j | i/rvi * UT\J t 

X1 = X ( 1 5 ♦VSCALf 

X2=X (2) *VSCAL( 

X3=X (33 *YSCAL( 

X4=X (4) *VSCAu( 

X5 = X (5) *VSCAL( 

X6=X (6) *VSCAL ( 

X7=X (7) *VSCAL ( 

X6=X (8) *VSCAL( 

X9=X (9) *VSCAL( 

X10=X (10) ♦VSCALC10) 
X11=X (11) *VSCAL( 11) 
XI 2=X (12) *VSCALC 12 ) 
X13=X (13) ♦VSCAUC13) 
X14=X ( L4 ) *VSC At- ( 14) 
X15=X (15) * VSCAL (15) 
X16=X (16) ♦VSCALC16) 
X17=X (17) *VSCAL(17) 
X18=X (18) *VSCA !• (18) 
X19=X (19) * VSC AL ( 19) 
X20 = X (20) * VSCAL f 20 ) 


BQMB01 10 
B0MB0120 
BQMB0130 
BQMB0140 

18818118 

BQMB0170 

B0MB0180 

B0MB0190 

B0MB0200 

18918138 

BCMB0230 

BCMB0240 

B0MB0250 

B0MB0260 

B0MB0270 

BQMB02B0 

BOMB0290 

BOMP7300 

B0M^310 


SUM0003C 

SUM00035 

SUM0011 

simoe 


c 

n 

C8999 

1000 


7 

8 

12 

9 


13 


X21 =X (21) ♦VSCALC21 ) 

X22^X (22) *VSCM.(22) 

X23—X 18^X19 

WRITE (6,8999)X1,X2»X3, X4 ,X1 7 ,X18,X19,X23 

FORMATC *0TE5T OF X VALU*, 8F13.8) 

Y1=DI*(X1»X1*XU*X4*X4*X12+XI7*X17*X22) ^ 

Y2=XM1*(X3*X3*X2*X2*X1 ♦X6*X6*X5*X5*X4+X19*X19*X18*X.1 8*X17 ) 

Y3=DK3*X9+DK4*X 1 0+DK5*X21 

Y4=PO*(l./X8-l. ) /K H + PO/KS/X8 

F=Y1+Y2+Y3+Y4 

PQ=(XM4/X8) ) J( ?ST+ll*VBE)+XMl0*(XM8*P0*XMll/X8+XM9*XMl2/X20) 
PD=Xiw7*VD/X8 + (XM64FR/l2./XN)*(PO*XM8 4XM13/X8+XM9*XH14/X20) 
P0F=E0/XM6*XM7**2*PCKCK/X21+CXM16*RCKCK/X21*X16)4(P04P0*XM8**2/X8* 
l*2+XM9*4‘2/3 e /X20**2)+XM7**2*(XN*EI/XM6-2./X8)*PCKCK/X2Ul ./Xri8/X18 
2**2*XM17*X22 

CCi7=PO*(l./X8-l . J-PIF-PO-PO-POF 
C(2)=X13*X3*X3-XM2*X1*X2*X2 

C [4 )*X9*X9+X?5*X15*X9**3*X7“PE1**2* (X10*X10+(X15*X15*X9/X7 )* 

1 (X9-X10*XM18)**2) 

C(5)=X1*X1*X2*X2-X7*XM4/(X8*BS1) 

C(6)=X4*X4*X5*X5-X7*XM4/(X8*B52*PE2) 

C(7)=XM5*X3*X2-X11*XM3+.5*X1 

C(8)=XM5*X6*X5-X12*XM3+.5*X4 _ „„„ 

C(9)=X17*X17*X18*X18-(X20/BSP)*(XM8*PO/X8+XM9/X20) 

C ( 1 0) =XM5*X19*X1 8-X22*XH3+ , 5*X17 

^ ^ ^ I ^ ■> rt 4 V >1 * V f! . V II rt / V IT t 


1/E0 


11 


C 

C 8 9 9 4 
103 


VR-(P0»x”8/XN/X8+XM9/XN/X20)*RCKCK/X21/E0-P0/2./XM6/FR/X21 

A DU 

C(12)=X16*X19*X19/2.-XM2*X18*X18*X17 ■ ^ x 

CC13)=XM26*X7**2*X10/X15-XM30*X7*X10-XM27*CXM28/X8**2*XM29/X20»*2) 
1»*0.5 

C ( 1 4) =. 97-X8 
C(15)=RT-X13-X14 
C(16)=X10-l.E-6 
C(17)=X9-l.E-6 
WRITE(6, 89.94) CC(t), I = l#17) 

FORMAT (£15. 6) 

DO 103 1=1,22 
C(17+I)=X(I) 

G(1)=DI*X11*2.*X1 +XM1*X3*X3*X2*X2 

G(2 5=XM1 *X3*X3*X 1 *2 . *X2 

GC3)=XMi*X2*X2*XH'2.*X3 

G(4)=DI*Xl2*2.*X4+-XMl *X6*X6 ♦X5*X5 

G(5)=XM1*X6*X6*X4*2.*X5 

G(6)=XM1*X5*X5*X4*2.*X6 

G(8)=-PO/X8/X8/KM-PO/KS/X8$*2 

G(9)=OK3 

G(10)=DK4 

G(12)=DI4X44X4 

G( 17)=DI*X22*2.*X1 7+XMl*X19*X19*X18*Xl8 
G(18)=XM1*X19*X19*X17*2.*X18 
G(19)=XM1*X18*X19*X17*2.*X19 
G ( 2 1 ) =DK5 


G(2?J=DI*X17*X17 

GC (8, 1)=-PQ/Xt/X8+ (2. /X8**3)*XM4*XM4*G113+X1 4) +(XM4/X8**2)*(V 
1ST+.1*VB£)+XM10* XM8*XM11*P0/X8**2 
2+XM7*VD/X8**2+CXM6*FR/12./XN)*P0*XM8*XM13/X8**2 
3+2.*PO**2*XM8**2/X8**3*(XM16*RCKCK/X2l*X16)-2.*XM7**2*RCKCK/ 
4X21/X6**2 

GC(13,n=-CXM4/X8)**2 
GCU4.1 )s-(XM4/XP)**2 

GCf 16, 1 )=-PO*PO*XM8**2/X8**2-XM9**2/C3.*X20*X20) 

SC ( 1 8 , U =2 . /XM 8 / X 1 8 **3 *XM1 ■ ?X2 2 

GC(20, U = XM10*XM9*XM12/X20*< ! 2-KXMi6*RCKCK/X21*X16)*2.*£XM9**2/ 
1(3.*X20**3) )+(XM6*FR/l2./XN*XM9*XM14/X20**2) 

GCC21 . 1 )=EO/XM6*XM7**2*RCKCK/X21**2+XM16*RCKCK/X21**2*CPO*PO*XM8 
1 **2/X8 **2+XM9*XM9/3 . /X20**2)+XM7**2*(Xtf*EI/XM6-2./X8) *RCKCK/X2 1**2 
GC(22, 1 )=«1./XM8/X18**2*XM17 
GCU3,2)=X3*X3 
GC ( 3 # 2 )=X1 3*2. *X3 
GC C 2 . 2 )=-XM2*Xi *2 . *X2 
GC(1,2)=-XM2*X2*X2 


GC ( 14. 3 )=Xb*X6 
GCC6,3)=X14*2.*X6 
GC(5,3)=-XM2 *X4*2 . *X5 
GC(4,3)s-XM2*X5*X5 

GC (15 » 4 )=2. *X1 5*X9**3/X7“PE1 *PE1 *(2.*X15*X9/X7) * (X9**X1 0*XM18 )**2 
GCC9,4)=2.*X9+3.*X9*X9*X15*X15/X7-PE1*PE1*( (X 15*X15*X9/X7 ) *2 . *(X9 
1-X10*XM18) + (X9-X10*XM18 J**?.*X15**2/a7) 
GC(7.4)=-X15*X15*X9**3/X7/X7+PE1*PE1*CX15*X15*X9/X7/X7)*(X9-X10* 
IXM1 8 ) **2 

GC(1O,4)=-PEI*PE1*C2.*X10-(X15*X15*X9/X7)*2.*(X9-X1O*XM18)*XM18) 

GC(l.S)sX2*X2*2.*Xl 

GC(2»5)-X1*X1*2. *X2 

GC(7,5)=-XM4/(X8*BS1) 

GCC8,5)=X7*XM4/(BS1*X8*X8) 

GCC4,6)=X5*X5*2.*X4 
GC £5 . 6 } =X4*X4*2 . *X5 
GC'(7,6}=-XM4/(X8*8S2*PE2) / 

GC(8,6)=X7*XH4/(PE2*BS2*X8*X8) 

Gf i2,7)sXM5*X3 
GC(3.7)=XM5*X2 
GC ( 1 1 » 7 )=-XM3 
GC(l,/)=.5 
GC (5 » 8 )=XM5*X6 
GC (6 , 8 ) =XM5*X5 


GC £ 12 , 8 )=-XM3 
GCC4,8)=.5 

SC{17-9)=X1S*X18*2.*X17 

GC(13,9)=X17*X17*2.*X18 

GC(20.9)s-(XM8*PO/X8+XM9/X20)/B3P'KX20/BSP)*XM9/X20**2 

GCC8/5)=X20/BSP*XM8*P0/X8**2 

CC(18,10) =XM5*X 1 9 

QC ( 19 » 10) sXF5*Xl 8 

GCC22, I 0)=-XG3 


104 


101 


102 

C 

C8995 


!fllii^ S = l ?5§i*S5?xi^^2§!J5^i^^0§2t« a / E O + PO/C 2 ..XH6.FR 

tyo i *¥2 1 /FO 

GC (20 ,11) = XM9*RCKCK/(XN*X20**2*X21)/E0 

GCflb 12)=X19*X19 *.5 

GC ( 1 9 , 1 2 ) =X 1 6* X 1 9 

GC(18,12)=-XM2*X17*2.*X18 

GC(l7,12)=-XM2»Xlfi*X18 

GC(7»13) = 2. *XM26*X7*X10/X15»XM30*X1 0 

GC ( 8 | 1 3 )=XM27*XM28/X8**3/SQRT (XM28/X8**2+XM29/X2G**2 ) 
GC(10,13)=XM26*X7**2/X15-XM30*X7 

GCUOll3)=XM27*XM29/X2oi*3/SQRT(XM28/X8**2+XM29/X20**27 

SKitliSii. 

GC ( 14, 15 j = *l • 

GC (10., 163 = 1* 

GC(9,17)=1. 

DO 104 I *1,N 
G€(I, 1+171=1.0 
DO 101 1=1, N 

G(I)=G(I)*VSCAL(I)/FSCAL 
CONTINUE 
DO 102 1=1, M 
Cm-C(I)/CSCAL(I) 

GC ( Jd )=GC ( J , I ) *VSCAL( J ) /CSC AL (I ) 

CONTINUE . 

WRITE (6 , 8995) (CCI). I=1#M) 

F0RMATC4E15.6) 

RETURN 

END 




APPENDIX H 

DERIVATIONS OF STATE-SPACE EQUATIONS 


The objective here is to derive the state apace model for the 
intervals T QN and T^of the continuous MMF operation of the two-winding 
buck/boost converter. The development will begin with the basic Kirchoff 
current and voltage law equations and apply matrix notation to form the 
constituents necessary to formulate A^, ‘Ag, B^, 82 * C, , Gj and E^ and 
E 2 used in equations (4. 2. 3.1) and (4. 2. 3. 2) in the text. Volume I. 


H.l During T QJ j (refer to Figure 2.3.2. (») the KVL equation on the 


primary side is: 
v. 


dt 


R„ 


N, 


ip 


(H.l.l) 


N P 

During T 0N> ip - ^ + 


. , v T R 

fti - El 

dt Np L p 


(H.l. 2) 


KVL equations for the secondary side are: 


V C + i l R C * (i l ’ i 2 )RL 


*2 “ -*0 


(H. 1.3) 


i . Cdv c 
L dt 


i l ” -i c 


Th»? above three equations can be simplified to, 


dv c 

dt 


-1 


v_ + 




(R c + R^C 0 (R c + RjK 0 


(H.l. 4) 
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The output equations are of the following form: 


'0 ■ (1 1 - *2>*L 


5-nq; v c + < R c // V 1 o 


S- 


L„ ♦ 


(H.1.5) 


The matrix form of the state equations format k - AjX + u and 
jr “ + E^u is: 


' f 


' X 

0 



v c 


n 

1 


v c 



V 

(R c * Rj )C 





0 


’ v l" 



0 

"l 


_ i o_ 



<*o + V 0 


V 


0 

\ 


"♦ " 

i 

L pJ 



r c + r l 


_ vc _ 




0 




0 

I — 

ctT* 

cP 


V 

uV 



0 

0 

- 




_ 

_ 



(H.1.6) 


(H.1.7) 


H '* 2 T n (refer to Figure 4.2.3.2(c)) KVL aquation for i < 

" " 1* 1 


end 1^: 


» s - ijRj ♦ (ij - 1 2 )R c + , c 

V C ■ (1 2 - * W 2 - S’ 8 ! 


(H.2.1) 


(H.2.2) 
(H.2.3) 

Simplifying equations (H.2.1) through (H.2.3) results in the following: 


*3 * -‘0 


’S • (R S - V‘l * 17^ 1 V C + Vl - Vo> + V C 


(H, 2.4) 


1 A V C * R C 1 1 ~ Vo 

2 r c + r l 

From Figure 4.2.3.2(c‘j the fallowing equations can be derived: 
N S 

v ■> -M 
S S dt 


(H.2.5) 


(H.,2.6) 


a . - |R s 1 V /R u ♦ . \ 

dt L_ R_ + 


r c +r l 


• 1 v c - V /R L i f 

IT c “ST" c 


From Figure 4.2.3.2(e) it can be seen that 


dv 


N„ 


*c “ h ' h * C TT and h “ if * 

s 

Substituting equation (H.2.8) into (H.2.9), 




dt CL S R C + *L 


(H.2.8) 


(H.2.9) 


«c + V c 


c + 


*L 


( R c + V c 


(H.2.10) 


Output : 

V 0 ’ *L (1 2 - V 

• rTT'rT V ° + <*c"V£ ♦ + < R c //R L n o 0>.2.11> 

c ^ L s 

In matrix form, x - AjX + B 2 u and £ - CjX + E 2 u are expressed in the 
following form: 
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APPENDIX I 


S • 



In Appendix B a detailed formulation for the steady-state (dc) 
transfer function, the lnput-to-output transfer function, and the duty 
cycle-to-output transfer function is presented. 

1.1 Derivation for steady state (dc) input-to-output relation 



( 1 . 1 . 1 ) 
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1.2 Derivation of tba input- to-output transfer function. 
i(«) - {C[Sl-A]“ l B + Eju(ii) 


[SI-Al - 


S + tL. + D'R, 


V 


,2 


- Vo 

n"V ' 


£1 


s + 1 

V 


( 1 . 2 . 1 ) 


C SI— A] 


-1 


s 2 + 


R s + D ’ R C , 1 ] 

« + V 

R s * D ' R c , 

t D’ 2 V 

e 

k . 


2 + A 
v 

» * - 


s + 


V 

2 


Vo 

-W 


-D' 


S + 


R s + D ’ R c 

LD - 2 ' 
e 


( 1 . 2 . 2 ) 


R s + D ' R c 
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(SI-A]" 1 « 
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+ Uq 2 
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(1.2.3) 
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s +. 2 Ci»qS + u 0 


"s^o (R c cs + 


{ 7 - <s **i c } 


R 2 1 R r , I 

C L 8 + 2CW o + R^C - l“ S + I 


-DD'H p (R C CS + 1) 

"W 


v £ (S) 


*0 (S) 


N S% 2 < R C CS + X > rJsWs + o, 5 

-j-p- c L 1 


S + 2;u> 0 S + U) 0 2 0 2 (s + -L. ) ' DN S W b 2 (R cs + 1) 



3 Derivation of the duty cycle-to-output transfer function, 


- c(SI-A)" 1 [(A-AJX + <a 1 -B 2 >Uj + 

d (S) k ' v . 

[<C r C 2 )X + (Ej-E^Uj 


(1.3.1) 
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(1.3.3) 
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500 FOR T-l TO 26 

2000 DATA 25, 5E 3,270,3000 F .5 

2010 DATA lt).8E-6,4,6,1 .0 ,1 .2,1 .2,3. MU 

2020 DATA .35EU, .35EU, . 15E-4, . 15EU, 1 .72BE-B,2, .35 

2030 DATA .35,42,.?, 1 ,3,5,8.9E6,7.8E4,I0 

2100 DATA 0,0, 0,0,0 

2110 DATA 0,0, 0,0, 0,0,0 

2120 DATA 0,0, 0,0, 0,0,0 

2130 DATA 0,0, 0.0, 0,0, 0,0,0 

2200 DATA YI,F,00,P0,T 

2210 DATA G, IAC ,RI . VS,0BE,UD,f'l 

2220 DATA TSR.TSF,fOR,TDF,RHO,FC,F'U 

2230 DATA BDC , K , li , OK , KCAF' , KHEC , DC, DI , K THE 

2300 DATA "YSTOL" 

2400 DATA L , C , RC , I P , N . A , Z , U , AC , PL , PL C , PL 2 , PH , P T , PD , PC , P , N B , VI , M H , UP , UC , U 
- B,WCON,WT,AH 

3000 V0-1/A* + A0/AH( 1 “AO/ 1 .07/A2) 

3002 i'1-( 1 . 0?+A3*A5/A0+ 1 / i 2*A t > * U -AO/ 1 . 07/A2) * ( A0#A0/Y 0* A3/A2) ) /A7 
3004 T2-A5,* t'i 

>006 Y3= J - ( AB+ . 1 '+A? ) / AO- < A2+B0 -AS ) * ( B2+B3+B4+B5 ) *A1 U/A0-A3‘* ! Y2/A2/A0 

300o i 4-4 M24*B6*B/*A3/A0*A3/AQ/Y3 

4010 Y3-Y0/B?*( I ,07*A3/AO+AO/2/YO/A1 ! M 1-A0/1 .07/A2) ) 

3012 Y6 1 -. I65+A1 "'.60M A2-AQUA0/Y3/A2/Y5 
5014 Y? = ( ( A3/A0-A3/A2 ?*( A84. 1 *A? KA3*B0/A2+,01 5*A3)/Y3 
YOU Yo=Y?+(A3/6/A0 ; H 82+B3+B4+B5M : A I * (A2+B0-A8) )/Y3 
301 8 Y?=Y8+( A3/A2+A3/A2M A2/A0-1 MY2T/Y3 

3020 X2s(CO*A4*A3/(C1*C2*(1-.01S*C1/C2)))*<AO/C2/<1-.015*C1/C2)>*0.02 

3021 Z0-X2rC3*Y1 +G4+A3 

3022 L i -C0U4/ ( C 1 +C2* ( 1 - , 01 S*C 1 /C2 ) ) + C7 
3 0 2 4 l 2 a 1 2 * B ? * G 5 * ( 4 4 B ? * C 5 - < C 6 ♦ Z I * Y 6 ) / B 8 ) 

,026 Z3s21*Y4*((CA+ZI*YA)/B8-24*i7*C5) 

3028 Z4-3»Z1+Y4*Z1*Y4 

3030 Z5M<-Z3-<Z34Z3-4*Z2*Z4)\5>/<2*Z2>)\5 
3032 Z6-\ZI+Y4/Z5/Z5-4*B?*C5)4 B8/(C6+Z1*Y6) 

3034 Z7-1 .0/*A3/AO+AO/2/YO/A1 *< 1 -AO/1 .07/A2) 

3036 Z8=1 /Z8* (BI ♦Y0*Z7»B8/B?/Z5) * .5 
3038 ZV=Z6*( Y0*27*Z5/B1 /B9/B8) 5 

3040 K0 = 2 + B1 + (Z4‘'. 572+1 /Z6'''.5)*<YO*Z? : *Z5/B1/B9/B8)" .25 
3042 Kt=Y0*KO/<Z8*Z8*Z?T/<4*Bl*1E-7) 

3044 K2-Y4 + Z8+ZV" . 5/Z5+ Y6*Z?*K0+Y9 

3045 K? s ( ( A3+K2 )/A0 ) *2*4«B6*8?*28*Z?" .5/ Z5 
3048 K3- ( A0/C2 ) + 1 / ( 1 - .0 1 5+C 1 /C2 ) 

3047 X0*(A2-A0)*A3*A0/A2/<A3+K2)/AI/'Y5 
;T0hS K 4 = A 0 + , 0 1 5 + A 0 +€ 1 / ( Q 2 ••+' ( 1 - . 0 1 5 * C 1 / C 2 ) ) 

304? XI=2*XD*.08?*AI*U*Z?*KO*A1 

3050 K5M*B?+C5^Z8*Z j*ZV%5+C6*i?*K0 

3051 K4«C4*A3+C7*K2 

3052 K7 s C3*YI*1E6 
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,5053 Ktt=Z0+Z1*K2+K5 
3034 X2-KV+X1 

3055 X8 tt A34K2+<A34K2)*.0t5#C1/<C2*< 1-.015*CI/C2) ) 

3056 X3 s (A3+K2)/A0 

3058 X4=<<1-<1/X3>*A3/A2)*<A84.1*A?)+<A2+B0-A8M'<B2FB3)*A1/6)*X3 
3060 X5 = A3*B0/A2F ( A2 + B0-A8) *< B4FB5)*At *X3/ 6 
5062 X6=A3/A2*A3/ A2*Y2*( <42/ A3 )*X3-U ) 

5064 X?- .01 5* A3 


5066 YU) = Y0 
50613 Y < 2 ) — V 1 
3070 Y<3> = Y2 
. 0/2 Y < 4 ) “ 2 7 
,i073 Y( 55-28 
50/4 V < 6 ) ~ 2 9 
5076 Y ( 7) ~K0 
5078 Y(8)=K1 ‘ 
,,080 Yi 95=25 
j0B2 Yu 0 ) =K2 
j 0 U 6 YU I )~K9 
,083 Y ( 1 2 ) - X 1 


J 0 ? 0 Y( 1 3)=X2 


J092 Y( 145-X4 
3094 Y(15)*X5 
5096 Y ( 1 6 ) =-X6 
30913 Y ( 1 ? ) - X 7 


5300 Y < 1 8 )=K3 


5102 Y(19)=K4 
5104 Y < 20 ) -K5 
3106 Y < 2 1 5=1(6 


3108 Y< 2.2 5 =1(7 

3110 Y ( 23 ) =C0 ! t'A4*XB/C1 /€2/ < 1 - . 0 1 5 * C 1 /C2)*K3* .02 
,3111 Y( 24 5 =K5+K6 + K7 
3112 Y(25)«Y(23)+Y(24) 

3114 Y (26 )=X8*A4/ AO/C 1 
3200 X-Y ( T 5 


i: (it r , R8SWC , ACC0UNT«MB5o238 
,5 R GET.VSTOL 
NO FILE NAMES SPECIFIED. 

[ BASIC 
% LOAD. VS I lit 
END LOAD 
■i LQAD.RSSWC 
END LOAD 
4 RUN 

|JC OR KSo ; A to ; 0/0 OR db j AC, DC OR tr; SENS.'Y or n , XOR LXM. 

L ) ? 

■ M,2S f V.D,N,L 
3ijKST CASE ANAL i'S IS 


APPENDIX K 

JUSTIFICATION FOR INPUT PARAMETERS 


In this appendix, justification for numerical values of all Input para- 
meters are given. Those parameters have been defined In chapter 5 
(Volume I). 

Capacitor Time Constant G 

Numerically, the tlire constant C*RC caused by capacitance C and equiv- 
alent series resistance RC Is assigned a value of 18.8E-6. This value 
Is arrived by assuming the use of three 1S0V, 47 pF foil-tantalum cap- 
acitors in series to provide the necessary derating required fora 
270V0C working voltage. Since each capacitor can be expected to have 
a maximum internal resistance of 0.4 ohms at the cold temperature of 
-30°C, the time constant 6 becomes 0.4 * 47E-6 ■ 18.8E-S. See Figure 
K1 for the supporting data, which Is taken from TRW's Electronic 
Component Handbook. 

Battery Current Ripple IAC 

Being of emergency use only, the source EMI In the battery Is not ex- 
pected to be a serious concern In the power system.' For the time being, 
a peak-to-peak 4-ampere limit Is assigned arbitrarily as the ac com- 
ponent in the source. The limit may be adjusted to a different num- 
erical value pending further system definitions. 

Output Voltage Ripple RI 

The generator specification carries a 12V peak-to-peak limit (section 
3. 7. 5.3, NADC-VT-TS-7502) . This specification Is probably meant for 
lower frequencies corresponding to the speed range of the generator. 

A 6V peak-to-peak specification is assumed for the boost converter output 
at the converter switching frequencies. Again, this limit may be adj- 
usted to a different value pending further system' definitions. 
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Figure K1 Supporting Data for Capacitor Hue Constant 


Transistor Conduction Voltage Drop (VS) and Base-Transmitter Voltage (V8E ) 

Slnca the voltage across the transistor Is at least 270V during Its 
off time, and the current through It can be as high as SOA or more, pre- 
sently available transistors compatible for this application will all 
have high conduction drop. Transistor 060T with a 400V, 200A rating Is 
specified to have a 1.25V maximum drop at the rated current. In 
practical application the actual conduction drop Is closely related to 
the converter Input voltage, and the speed with which the transistor 
Is capable of turning fully on, which In turn Is a function of the 
transistor drlie scheme. In the computer program, a conservative 1.8V 
Is assigned to 15. This number can be reduced If techniques of connecting 
In series two transistors with lower voltage ratings can be utilized. 

The choice of VBE-1.2V Is reasonable, as It Is the maximum VBE for a 
5-ampere base current. 

Diode Voltage (VO) 

01 ode SA8466 by Semtech rated at 35A and 1000V appears to be more than 
adequate for this application. At 20-^mpere the diode Is measured to 
have a voltage drop of 1.2V, Voltage VD Is therefore assigned ac- 
cordingly, 

s 

Switching Times For Transistors and Diodes TSR, TSF, TOR, TOF 

The switching times will be functions of switching current and base 
dirve. The rise and fall times TR and TF for both the transistor and 
the diode are assigned reasonable, conservative numbers. They arc 
0.35 microseconds each for the transistor, and 0.15 microseconds each 
for the diode. 

Inductor-Related Parameters RHO, FC, FV1, 8DC 

Oue to the large flux excursion in the Inductor, a powder^core is first ass- 
umed for the application, with a peak operating flux density BDC of 
2 

0.35 weber/meter , Copper conductors result in a resistivity RHO of 
1.728E-6 ohm-meter, For a large inductor such as this, experiences , 
would generally dictate a winding pitch factor FC*2 and a window winding 

fill factor FW-0.35, A BOC of 1.2 weber/m 2 is then used to make another 
set of runs to assess its impact to system weight. 
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Battery Weight ,/ Ampere-Hour Constant (K ) 

The relationship between an Individual cell weight and Its ampere- 
hour capacity can be found from “Nickel -Cadmium Battery Application 
Engineering Handbook", 2nd Edition, General Electric Company, Pub- 
lication Number GET-3148A. After plotting weight versus ampere- 
hour, It Is seen to be essentially a straight line, with a slope of 
approximately 42 grams/ ampere-hour , as shown in Figure K2. 

Cell Capacity As A Function of Discharge Rate, (Ml 

The effect of discharge rate on cell capacity Is shown In Figure K3, 
which Is obtained from the aforementioned 6E Handbook, A 2C dis- 
charge Is estimated to produce a reduction of the cell to 90S of Its 
ampere-hour capacity rated at 1C discharge. Therefore, H Is taken 
as 0.9, 

Cell Voltage (Vk ) 

Near the end of discharge of Its rated ampere-hour, the cell voltage 
Is reduced from 1,25V nominal to a lower value that Is a function of 
temperature and discharge rate, In this application, a conservative 
(IV) is assumed for Vk. 

Mechanical Structure Constant KMSC and Thermal Design Constant OCTHE ) 

These constants are Important to the analysis, as they affect significantly 
the total system weight. Admittedly, the estimate of these constants 
Is rather difficult, as It depends on various parameters Including 
the vibration requirement and the thermal design at the system level. For 
the time being, the converter mechanical packaging weight are modelled 
to be functions of output power P0 and total loss PL, In the form of 
KMEC*P0 + KTHE*PL. Relying on experience primarily, KMEC and KTHE are 
set for this application to 5 and 10 grams/watt, respectively. 
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Capacitor Density In Grams p er Mlcrofand (KCAP) 

As previously stated/ three 150-volt. 47-microfarad capacitors are connected 
In series to meet the required voltage with ample derating. Each capacitor 
weighs 17.5 grams; a total of 3 x 17.5 grams Is needed to make 47/3 micro- 
farads. In terms of grams per microfarad, the number Is therefore 

9 X 17.5/47 • 3. 

Conductor Density PC and Co re Density 01 

The copper density Is used for DC at 8.9E6 grams/meter 3 . The iron density 
Is used for DI at 7.8E6 grams/meter . 


